Дан массив x[7] - целые числа. Найти среднее арифметические

Question

Дан массив x[7] - целые числа. Найти среднее арифметические

Answer 1

//PascalABC.NET 3.1

begin
  var a := ArrRandomInteger(7); a.Println;
  WriteLn('Среднее арифметическое: ', a.Average);
end.