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

Question

Информатика

Лада

28 августа, 21:12

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

+2

Ответы (1)

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

Мишуля · Answer 1

Program z1;

var

i, s:integer;

s1:real;

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

begin

writeln ('Введите числа') ;

for i:=1 to 10 do

begin

readln (a[i]) ;

s:=s+a[i];

end;

s1:=s/10;

writeln (s1) ;

end.