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

Решение в Паскале:Program sred;Var a: array[1..50] of real;i, n: integer;s,sred: real;BeginWrite (‘n=’); Readln (n);s:=0;For i:=1 to n dobeginwrite (‘введите число’); readln (a[i]);s:=s+a[i];end;sred:=s/n;writeln(‘среднее арифметическое элементов: ‘,s);End.