Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми элементами - Pascal ABC

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

Дан массив K(10). Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми элементами.

Решение задачи: «Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми элементами»

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

const n=10;
var 
k:array[1..n] of integer;
i,max,min:integer;
begin
 for i:=1 to n do begin 
  k[i]:=random(50);
  write(k[i]:3);
  end;
  writeln;
  max:=k[2];
  min:=k[2];
  for i:=2 to 5 do begin
   if k[i]>max then max:=k[i];
   if k[i]<min then min:=k[i];
   end;
   writeln('Максимальный элемент в интервале от 2 до 5 = ',max);
   writeln('Минимальный элемент в интервале от 2 до 5 = ',min);
end.

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

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (равное 10 в данном случае);
k - массив целых чисел, заполненный случайными числами от 0 до 50 (это делается с помощью цикла for i := 1 to n do begin...end);
i - индекс текущего элемента массива;
max - переменная для хранения максимального элемента;
min - переменная для хранения минимального элемента;
random(50) - функция, генерирующая случайное число от 0 до 50 (включительно). Цель программы - найти максимальный и минимальный элементы в массиве между вторым и пятым нулевыми элементами. Для этого используется цикл for i := 2 to 5 do begin...end, внутри которого проверяется, является ли текущий элемент максимальным или минимальным по сравнению с предыдущим максимальным/минимальным элементом. Если текущий элемент больше предыдущего максимального элемента, то он становится новым максимальным элементом. Аналогично, если текущий элемент меньше предыдущего минимального элемента, то он становится новым минимальным элементом. После выполнения цикла выводятся найденные максимальный и минимальный элементы.