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

Question

Информатика

Тюша

20 декабря, 22:30

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

+4

Ответы (1)

Знаете ответ на вопрос?

Никодим · Answer 1

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.