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

Question

Информатика

Северин

27 ноября, 22:57

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

+1

Ответы (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.