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

Question

Информатика

Даниэла

4 марта, 06:59

Программа вводит 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.