Question

Создать массив a из десяти целых чисел, принадлежащих промежутку [0;23]. Вывести полученный массив на экран. Подсчитать Т количество элементов массива, значение которых не превышает 20, но больше 18

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=ArrRandom(10,0,23); a.Println;
  var t:=a.Where(t->t<=20).Where(t->t>18).Count;
  Println('t=',t);
end.

Пример:
8 14 20 19 16 6 20 0 2 2
t= 3