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

Question

Информатика

Осрек

6 февраля, 14:30

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

+5

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