Помогите решить В массиве из 20 элементов заполненном целыми числами из интервал?
Помогите решить
В массиве из 20 элементов заполненном целыми числами из интервал?? [0;1000] найти количество четных двузначных чисел.(PascalABC)
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var n:=ArrRandom(20,0,1000).Println.
Where(x->(x>9) and (x<100)).Count;
Writeln('Количество двухзначных чисел равно ',n)
end.
Тестовое решение:
310 202 752 389 189 668 734 25 988 561 710 26 847 870 655 984 528 746 93 135
Количество двухзначных чисел равно 3
Не нашли ответ?
Похожие вопросы