Question

Дан целочисленный массив A из 10 элементов. Найти среднее арифметическое элементов массива. Помогите пожалуйста, PascalABC

Answer 1

Program n1;
var a: array[1..10] of integer;
sum,i: integer;
begin
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('срзнач: ',sum/10);
end.

Answer 2

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-99,99); a.Println;
  Writeln('Ср.арфиметическое равно ',a.Average:0:1)
end.

Пример
91 -37 67 -2 -66 -5 45 -44 79 61
Ср.арфиметическое равно 18.9