Question

Найдите среднее арифметическое N первых натуральных чисел.

Answer 1

Program n1;
const n=5;
var a: array [1..n] of integer;
i,S: integer;
begin
writeln('дано ',n,' чисел;');
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
for i:=1 to n do S:=S+a[i];
writeln('среднее арифм: ',S/n);
end.