Создать массив а из десяти целых чисел, принадлежащих промежутку [0;20). вывести полученный массив на экран. вычислить количество элементов массива,
значения которых превышают средне арифметическое значений его элементов
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,0,19); a.Println;
var m:=a.Average;
Writeln(k=,a.Where(x->x>m).Count)
end.
Тестовое решение:
10 10 5 5 1 7 17 0 12 18
k=5
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
