Создать массив а из десяти целых чисел, принадлежащих промежутку [0;20). вывести пол?
Создать массив а из десяти целых чисел, принадлежащих промежутку [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
Не нашли ответ?
Похожие вопросы