Question

Составьте блок-схему и программу решения следующей задачи:
Найдите среднее арифметическое пяти чисел, введенных с клавиатуры.

Answer 1

Без блок-схемы.

var i,sum,n: Integer;
begin
sum:=0;
for i:=0 to 4 do
begin
writeln('Введите ',i+1,' число');
readln(n);
sum:=sum+n;
end;
writeln('Ответ: ',sum/5);
end.