Найдите среднее арифметическое 5 любых чисел. в паскале с оператором цикла for

AlexxP AlexxP    1   28.05.2019 07:40    1

Ответы
larryisreallmao larryisreallmao  25.06.2020 17:55
Var n,sum,pr:real; i:integer;
Begin
  Write('Введите 5чисел');
  for i:=1 to 5 do begin
               readln(n);
               sum:=sum+n;
      end;
pr:=sum/5;
Writeln('Среднее арифметическое чисел - ',pr);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика