Question

Составьте программу ,которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива .

Answer 1

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

begin
  var a:=ArrRandom(10,1,10); a.Println;
  Writeln('Ср.арифм: ',a.Average)
end.

Пример
3 9 8 3 3 8 8 9 7 3
Ср.арифм: 6.1