karinka20001202
20.05.2021 09:35

Составить ! количество чисел задается пользователем: чтобы найти среднее арифметическое надо: 1. запросить у пользователя сколько вводится чисел(n) 2. сравнить количество чисел с нулем 2.1 если количество чисел > 0 (т. к. количество чисел должно быть натуральным), то: 2.1.1 т. к. мы будем находить сумму чисел, значит начальное значение следует приравнять 0 2.1.2 выполнять цикл мы будем n раз. в цикле мы должны: 2.1.2.1 запросить число(а) 2.1.2.2 к полученной сумме прибавить введенное число 2.1.3 найти среднее арифметическое введенных чисел 2.1.4 вывести полученное значение 2.2 если количество чисел < =0 то: 2.2.1 вывести сообщение об ошибке.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
asli121
03.07.2020 01:20
Var
 a,sum,i,n:integer;
begin
 readln(n);
 if n<=0 then
  writeln('N не натуральное число')
 else
 begin
  sum:=0;
  for i:=1 to n do
  begin
   read(a);
   sum:=sum+a;
  end;
   writeln(sum/n);
 end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота