Определите среднее арифметическое элементов массива.

Question

Информатика

Аполлинария

25 февраля, 19:47

Определите среднее арифметическое элементов массива.

+3

Ответы (1)

Знаете ответ?

Артемич · Answer 1

Uses crt;

const n = 5;

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

sun, k, i:integer;

begin

for i:=1 to n do

readln (a[i]) ;

sum:=0; k:=0;

for i:=1 to n do

begin

sum:=sum+a[i];

k:=k+1;

end;

writeln (sum/k) ;

end.