Массив целых чисел из 15 элементов. заполнить случайным образом. упорядочить массив по убыванию. подсчитать количество элементов больше 10, вывести результат.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var a:=ArrRandom(15,-30,30); a.Println; a:=a.Sorted.ToArray; a.Println; Writeln('Элементов, больших 10- ',a.Where(x->x>10).Count) end.
begin
var a:=ArrRandom(15,-30,30); a.Println;
a:=a.Sorted.ToArray; a.Println;
Writeln('Элементов, больших 10- ',a.Where(x->x>10).Count)
end.
Тестовое решение
17 15 -26 -26 -9 8 -16 -7 -8 -3 23 12 10 29 -13
-26 -26 -16 -13 -9 -8 -7 -3 8 10 12 15 17 23 29
Элементов, больших 10- 5