Дан массив из 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.