Программа вводит 10 целых чисел. Напишите программу, с помощью цикла for вычислить среднее значение чисел

Question

Информатика

Арсений

26 сентября, 18:54

Программа вводит 10 целых чисел. Напишите программу, с помощью цикла for вычислить среднее значение чисел

+3

Ответы (1)

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

Алантина · Answer 1

Var i, sum, b: Integer;

begin

for i:=1 to 10 do

begin

writeln ('Введите ', i,' число');

readln (b);

Inc (sum, b);

end;

writeln (sum/10);

end.