Регистрация
olena4519
10.07.2020 05:46
Информатика
Есть ответ 👍

Решить (в паскале) дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

137
488
Посмотреть ответы 2

Ответы на вопрос:

ЗАЙКА200515
ЗАЙКА200515
4,5(72 оценок)
Var a: array[1..20] of integer; i,k1,k2: integer; begin for i: =1 to 20 do begin read(a[i]); if odd(a[i]) then k2+=1; if not odd(a[i]) then k1+=1; end; writeln(k1,' ',k2); end.
Gubatu
Gubatu
4,5(98 оценок)
Мак-лак-лук лор-бор-бур-бук-сук

Популярно: Информатика