Question

даны Н целых чисел найти среднее арифметическое чисел/пожалуйста!!!

Answer 1

var
M: array [1..100] of integer;
s,i,n: integer;
begin
write('Введите кол-во чисел (n): ');
readln(n);
writeln('Введите ',n,' чисел:');
for i:= 1 to n do
 begin
 readln(M[i]);
 s:=s+M[i];
 end;
writeln('Среднее арифметическое: ',s/n);
end.