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

Решение в Паскале:

Program sred;

Var a: array[1 ... 50] of real;

i, n: integer;

s, sred: real;

Begin

Write ('n='); Readln (n);

s:=0;

For i:=1 to n do

begin

write ('введите число'); readln (a[i]);

s:=s+a[i];

end;

sred:=s/n;

writeln ('среднее арифметическое элементов: ', s);

End.