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

Question

Информатика

Виктуся

15 октября, 10:03

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

+4

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