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

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

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

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

textual
  i:=n; while (i>0) and not Odd(a[i]) do Dec(i);
  WriteLn(i<>0);

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ