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

Question

Информатика

Северин

2 июня, 03:26

Найдите среднее арифметическое 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.