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

Question

Информатика

Галя

1 октября, 19:29

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

+1

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