Дан массив а 5. Случайные числа от 0 до 30. Найти сумму и среднее арифметическое всех чисел.

Question

Информатика

Варварий

26 сентября, 11:09

Дан массив а 5. Случайные числа от 0 до 30. Найти сумму и среднее арифметическое всех чисел.

+3

Ответы (1)

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

Лаврента · Answer 1

Program z1;

var a:array [1 ... 5] of integer;

s, k, n : integer;

begin

for I:=1 to 5 do begin

readln (a[I]) ;

s:=s+a[I];

k:=k+1;

end;

n:=s/k;

writeln (s, k) ;

end.

надеюсь помог