Question

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

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.