Задан массив А из 10 целых чисел. Найти среднее арифметическое всех элементов массива.

Question

Информатика

Кирила

10 декабря, 13:38

Задан массив А из 10 целых чисел. Найти среднее арифметическое всех элементов массива.

+1

Ответы (1)

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

Селена · Answer 1

Var a:array[1 ... 10] of integer;

i, sum:integer;

begin

sum:=0;

for i:=1 to 10 do

begin

readln (a[i]) ;

sum:=sum+a[i];

end;

writeln (sum/10)

end.