Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ



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 
916
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам