Question

Дан массив из N случайных чисел. Найти среднее значение всех элементов массива.

Answer 1

//PascalABC.Net 3.2
begin
var a:=ArrRandom (readinteger('n ='), -100, 100);
a.Println;
write ('Ср. фрифметическое: ', a.Average)
end.