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

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

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

Question

Информатика

Урсула

23 ноября, 14:16

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

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

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

+1

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