// PascalABC.NET 3.0, сборка 1128 begin var n:=ReadInteger('Введите количество элементов:'); var a:=ArrRandom(n,-10,20); a.Println(','); WriteFormat('Среднее арифметическое равно {0}',a.Average) end.
Тестовое решение: Введите количество элементов: 10 -2,6,6,-6,-6,16,18,15,14,7 Среднее арифметическое равно 6.8
begin
var n:=ReadInteger('Введите количество элементов:');
var a:=ArrRandom(n,-10,20);
a.Println(',');
WriteFormat('Среднее арифметическое равно {0}',a.Average)
end.
Тестовое решение:
Введите количество элементов: 10
-2,6,6,-6,-6,16,18,15,14,7
Среднее арифметическое равно 6.8