Question

Помогите пожалуйста срочно!!!
Нужно написать программу: Создать одномерный массив из 500 элементов со значениями в пределах (-500, 500). Найти сумму и среднеарифметическое значение элементов массива.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(500, -500, 500);

 a.Println; // строку убрать, если вывод массива не нужен

 Print('Сумма =', a.Sum, '  среднее арифметическое =', a.Average)

end.