Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечётный элемент - Pascal

Узнай цену своей работы

Формулировка задачи:

Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечетный элемент.

Решение задачи: «Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечётный элемент»

textual
Листинг программы
  i:=n; while (i>0) and not Odd(a[i]) do Dec(i);
  WriteLn(i<>0);

Объяснение кода листинга программы

  1. Устанавливается начальное значение переменной i равное n.
  2. Начинается цикл while, который выполняется до тех пор, пока значение i больше 0 и элемент массива a[i] четный.
  3. Внутри цикла while значение i уменьшается на 1 с помощью функции Dec(i).
  4. Выполняется проверка условия i<>0 (значение i не равно 0) и выводится результат в виде булевого значения с помощью WriteLn.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы