Составить программу, Использовать оператор цикла с заданным количеством повторов ... Ввести 10 элементов. посчитать среднее арифметическое этих чисел.

Question

Посейдон

20 ноября, 22:14

+5

Ответы (1)

Знаете ответ на вопрос?

Агасалах · Answer 1

Var i, n, sred, sum:integer;

begin

sum:=0;

for i:=1 to 10 do

begin

readln (n) ;

sum:=sum+n;

end;

sred:=sum/10;

writeln (sred) ;

end.