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

Печенькавасилиса Печенькавасилиса    3   16.09.2019 19:00    0

Ответы
Ananasik3333 Ananasik3333  07.10.2020 20:19
//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 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика