Question

заполнить массив из 10 элементов от 1 до 100 и найти их среднее арифметическое

Answer 1

// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
  var a:=ArrRandom(10,1,100); a.Println;
  Writeln('Ср.арифм.=',a.Average)
end.

Тестовое решение:
29 50 22 89 21 94 93 83 45 89
Ср.арифм.=61.5

Answer 2

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var
  a := ArrRandom(10, 1, 100);
  a.Println;
  Println(a.Average);
end