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

Question

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

Answer 1

Паскаль:
var i, s : integer;
n: real;

begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.

Comments

Если n надо вывести - writeln(n) в конце