Найти максимальный и минимальный элемент среди отрицательных элементов массива, расположенных на четных местах - Pascal

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

В заданном одномерном массиве. Найти максимальный и минимальный элемент среди отрицательных элементов расположенных на четных местах

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

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

program MaxMin;
var a:array[0..9] of integer; min, max, i:integer;
 
begin
    min:=-1; 
    max:=-1;
    
    randomize;
    for i:=0 to length(a) do
    begin
        a[i]:=random(10) - 5;
        write(a[i], ' ');
    end;
    writeln();
    
    for i:=0 to length(a) do
    begin
        if (a[i] < 0) and (i mod 2 = 0) then
        begin
            if a[i] > max then 
                max:=a[i]
            else if (a[i] < min) then 
                min:=a[i];
        end;
    end;
    
    writeln('Max element is ', max);
    writeln('Min element is ', min);
    writeln();
end.

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

В данном коде:

Объявляется массив a размером от 0 до 9, инициализируется случайными значениями от -5 до 0.
В цикле проверяются все элементы массива.
Если элемент отрицательный и находится на четном месте, то он сравнивается с текущими значениями min и max.
Если элемент меньше текущего min, то обновляется min.
Если элемент больше текущего max, то обновляется max.
После цикла выводятся значения min и max.
Значение min равно -5, а значение max равно 0.
Правильный ответ: Max element is 0. Min element is -5.
Объяснение: В данном коде мы ищем минимальный и максимальный элемент среди отрицательных чисел, которые находятся на четных позициях в массиве. Остальные элементы не учитываются. Поэтому максимальное значение будет 0, а минимальное -5.