Составить программу в паскале

с клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной части

P. S. пять чисел нужно выразить через одну переменную

Question

Информатика

Максюта

14 августа, 16:44

Составить программу в паскале

с клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной части

P. S. пять чисел нужно выразить через одну переменную

+3

Ответы (1)

Знаете ответ?

Маркел · Answer 1

Var pr, sum, n:real; i:integer;

Begin

write ('Вводите числа: ') ;

for i:=1 to 5 do begin

readln (n) ;

sum:=sum+n;

end;

pr:=sum/5;

writeln ('среднее арифметическое равно: ', pr) ;

end.