Найти минимальное нечетное число от 1 до 30 - Free Pascal

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

Дан массив из 30 целых чисел, заданных случайным образом. Найти минимальное нечетное число от 1 до 30.

Решение задачи: «Найти минимальное нечетное число от 1 до 30»

Листинг программы

  min:=1; while (i<=n) and not Odd(a[min]) do Inc(min);
  for i:=min+1 to n do
    if Odd(a[i]) and (a[min]>a[i]) then min:=i;
  if min>n then WriteLn('Нет нечётных чисел.')
  else WriteLn('Min: ',a[min]);

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

В данном коде на языке Free Pascal реализуется алгоритм поиска минимального нечетного числа в диапазоне от 1 до 30.

min:=1; - инициализация переменной min значением 1.
while (i<=n) and not Odd(a[min]) do Inc(min); -
- Цикл прервётся, когда будет выполнено одно из условий:
  - i станет больше n, то есть будет выполнено условие i>n.
  - Будет найдено нечетное число a[min].
- Условие not Odd(a[min]) проверяет, является ли текущее минимальное число четным.
- Если да, то оно не подходит, и мы увеличиваем значение min на единицу.
for i:=min+1 to n do - цикл, который будет выполняться, начиная с min+1 и до n.
if Odd(a[i]) and (a[min]>a[i]) then min:=i; - условие цикла проверяет, является ли текущее число i нечетным и меньше текущего минимального числа a[min].
- Если это так, то текущее число i становится новым минимальным числом.
if min>n then WriteLn('Нет нечётных чисел.') - проверка, не превышает ли значение min n.
- Если да, то выводится сообщение Нет нечётных чисел..
else WriteLn('Min: ',a[min]); - вывод сообщения с минимальным нечетным числом min.