Найти наибольший отрицательный элемент массива и его порядковый номер - Turbo Pascal

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

Найти наибольшой отрицательный элемент массива Х(А) и его порядковый номер

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

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

Uses crt;
Var
x: Array[1..100] of Integer;
a,n,max: Integer;
BEGIN
Clrscr;
Randomize;
Writeln('Введите кол-во элементов: '); Readln(n);
Writeln('Исходный массив:');
For a:=1 to n do
begin
  x[a]:=Random(101)-50;
  Write(x[a],' ');
end;
max:=-51;
For a:=1 to n do
If x[a]<0 Then
begin
  If x[a]>max Then
  max:=x[a];
end;
Writeln;
Writeln('Наибольший отриц. элемент: ',max);
Readln
END.

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

В данном коде используется язык программирования Turbo Pascal. Переменные:

x: массив из 100 элементов типа Integer, в котором будут храниться случайные числа от -50 до 50.
n: переменная, в которую будет записано количество элементов в массиве x.
a, n, max: переменные типа Integer, которые будут использоваться для итерации по массиву x и поиска наибольшего отрицательного элемента. Код начинается с инициализации переменной max значением -51, которое будет являться начальным значением для поиска наибольшего отрицательного элемента. Затем происходит инициализация массива x случайными числами от -50 до 50. Далее происходит поиск наибольшего отрицательного элемента. Для этого используется цикл for, который проходит по всем элементам массива x. Внутри цикла проверяется условие, что текущий элемент меньше нуля. Если это условие выполняется, то значение текущего элемента присваивается переменной max. Если текущий элемент больше max, то max обновляется. После завершения цикла выводится наибольший отрицательный элемент и его порядковый номер в массиве x. Код завершается после ввода пользователем каких-либо данных.