Найти минимальное число, стоящее под нечетным номером в массиве 10 чисел - PascalABC.NET

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

Создать массив из 10 чисел. Найти минимальное число, стоящее под нечетным номером.

Решение задачи: «Найти минимальное число, стоящее под нечетным номером в массиве 10 чисел»

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

const n=10;
var
  a:array[1..n] of integer;
  i,m:integer;
begin
  randomize;
  write('Созданный массив:');
  m:=1;
  for i:=1 to n do begin
   a[i]:=random(100);
   write(a[i],' ');
   if (odd(i)) and (a[m]>a[i]) then m:=i;
  end; 
  writeln('Минимальное число:',a[m],' позиция ',m);
end.

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

Объявляется константа n и переменные a, i, m типа integer.
Используется функция randomize для инициализации генератора случайных чисел.
Выводится сообщение Созданный массив: и затем формируется массив a с помощью цикла for i:=1 to n.
В каждой итерации цикла в массив a[i] записывается случайное число от 0 до 99 с помощью функции random(100).
С помощью функции write(a[i],' ') выводится значение a[i] в консоль, при этом добавляется пробел.
С помощью условного выражения (odd(i)) и (a[m]>a[i]) проверяется, является ли текущая позиция i нечетной и значение a[m] больше значения a[i]. Если это так, то значение переменной m обновляется на i.
После завершения цикла выводится сообщение Минимальное число:, затем значение a[m] и позиция m.