Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое...

Question

Создать массив , рвводя значения элементов с клавиатуры. вычислить среднее арифметическое значение его элементов. например:если массив а[5]:15,7,8,23,11, то должны получить:12,8.Пояснение : найти сумму всех элементов, и поделить на количество элементов.
Составьте пж только программу , буду благодарен

Answer 1

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

Answer 2

Var
a:array[1..100] of Integer;
i,n,x,sum:Integer;
sa:Real;
begin
sum:=0;
for i:=1 to 100 do
a[i]:=0;
ReadLn(n);
for i:=1 to n do
begin
ReadLn(x);
a[i]:=x;
sum:=sum + a[i]
end;
sa:=sum / n;

WriteLn(sa);

end.