Найти количество четных чисел в одномерном массиве размерностью 5.
Найти количество четных чисел в одномерном массиве размерностью 5.
Гость
Ответ(ы) на вопрос:
Гостьvar a : array [1..5] of integer; count, i ; integer; begin count := 0; for i := 1 to 5 do read (a[i]); for i := 1 to 5 do if a[i] mod 2 = 0 then inc (count); writeln (count); end.
Не нашли ответ?
Похожие вопросы