В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
87056231946
87056231946
19.01.2023 07:33 •  Информатика

Сделать куб в чертежнике в программе кумир.

Показать ответ
Ответ:
ДанькоДенис2018
ДанькоДенис2018
22.08.2020 14:21
Const
  n = 20;

var
  T: array[1..n] of integer;
  mean: real;
  i, k: integer;

begin
  writeln('Введите ', n, ' элементов массива');
  for i := 1 to n do
  begin
    read(T[i]);
    mean := mean + T[i]
  end;
  mean := mean / n;
  k := 0;
  writeln(#13#10, 'Введено: ');
  for i := 1 to n do write(T[i]:5);
  writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ',
      mean:0:2);
  for i := 1 to n do
    if T[i] > mean then
    begin
      write(T[i]:5);
      k := k + 1
    end;
  writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k)
end.

Тестовое решение:

Введите 20 элементов массива
5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21

Введено:
    5   17   28   45  -20   34    9   18   42  -36   18   36    0   24    5   45   -7   12    1   21
Элементы массива, превышаюшие среднее арифметическое 14.85
   17   28   45   34   18   42   18   36   24   45   21
Найдено элементов, превышаюших среднее арифметическое: 11
0,0(0 оценок)
Ответ:
TataSkate
TataSkate
25.09.2021 07:15
Var
  u7, d7, v7, s7: array[1..7] of real;
  i: integer;
  s: real;

begin
  writeln('Вводите температуры за утро, день и вечер');
  s := 0;
  for i := 1 to 7 do
  begin
    write(i:1, ': ');
    readln(u7[i], d7[i], v7[i]);
    s7[i] := (u7[i] + d7[i] + v7[i]) / 3;
    s := s + s7[i]
  end;
  s := s / 7;
  writeln;
  writeln('Средние температуры по дням недели:');
  for i := 1 to 7 do
    write(s7[i]:0:1, ' ');
  writeln;
  writeln('Средняя температура за неделю: ', s:0:1)
end.

Тестовое решение:

Вводите температуры за утро, день и вечер
1: 19.6 24.8 17.3
2: 16.8 22.3 18.1
3: 15.9 24.2 19.0
4: 18.5 26.8 20.3
5: 19.2 25.6 21.7
6: 19.0 23.7 20.1
7: 18.8 23.9 19.5

Средние температуры по дням недели:
20.6 19.1 19.7 21.9 22.2 20.9 20.7
Средняя температура за неделю: 20.7
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота