Создать массив a из десяти целых чисел, принадлежащих промежутку [0;23]. Вывести полученный массив на экран. Подсчитать Т количество элементов массива, значение которых не превышает 20, но больше 18
Ответы на вопрос
Ответил Giammy
0
//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
//Версия 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
Новые вопросы