Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечётный элемент - Pascal
Формулировка задачи:
Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечетный элемент.
Решение задачи: «Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечётный элемент»
textual
Листинг программы
i:=n; while (i>0) and not Odd(a[i]) do Dec(i); WriteLn(i<>0);
Объяснение кода листинга программы
- Устанавливается начальное значение переменной
iравноеn. - Начинается цикл
while, который выполняется до тех пор, пока значениеiбольше 0 и элемент массиваa[i]четный. - Внутри цикла
whileзначениеiуменьшается на 1 с помощью функцииDec(i). - Выполняется проверка условия
i<>0(значениеiне равно 0) и выводится результат в виде булевого значения с помощьюWriteLn.