Вычислить среднеарифметическое значение всех элементов массива dat[1:10]. Дам 20 баллов...

Question

Вычислить среднеарифметическое значение всех элементов массива dat[1:10]. Дам 20 баллов Нужно срочно!

Answer 1

var

 a: integer

 dat:array [1..10] of integer

begin

a:=0;

for 1 to 10 do

begin

 a = a+dat;

end;

a := a/10;

writeln(a);

end.