Создать массив a из 10 целых чисел, принадлежащих промежутку [0;23]. Вывести

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

Задать свой вопрос
1 ответ
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)


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

Пример:
8 14 20 19 16 6 20 0 2 2
t= 3 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт