Составить ! количество чисел задается пользователем: чтобы найти среднее арифметическое надо: 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 вывести сообщение об ошибке.

МудраяСоваАлександра МудраяСоваАлександра    3   02.06.2019 05:00    0

Ответы
mrdruss mrdruss  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика