дан массив с [1:20], элементами которого являются случайные числа из интервала (0, 200). Определить количество элементов, которые являются нечетными числами.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var c:=ArrRandom(20,0,200); c.Println;
Writeln('Кол-во нечетных: ',c.Where(x->Odd(x)).Count);
end.
Тестовое решение:
120 175 140 191 3 64 105 106 192 174 21 166 149 179 32 166 69 78 158 48
Кол-во нечетных: 8
begin
var c:=ArrRandom(20,0,200); c.Println;
Writeln('Кол-во нечетных: ',c.Where(x->Odd(x)).Count);
end.
Тестовое решение:
120 175 140 191 3 64 105 106 192 174 21 166 149 179 32 166 69 78 158 48
Кол-во нечетных: 8
Новые вопросы