Найти минимальный по абсолютной величине элемент массива - Turbo Pascal

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

Нужно обработать одномерный массив из существующих и найти минимальный по абсолютной величине , массив состоит из 11 чисел , -11,37 ; 11,21 ; -9,25 ; - 18,58 ; 11,19 ; 12,99 ; 2,58 ; -5,05 ; 0,15 ; 6,06; -8,86 Помогите пожалуйста составить задачу. + еще одна с произведением и количеством положительных элементов двумерный массив (2,3) -20,80 ; 22,51 ; -9,72 -14,23 ; 11,92 ; -23,88

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

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

uses crt;
const n=11;
      a:array[1..n] of real=(-11.37,11.24,-9.25,-18.58,11.19,12.99,2.58,
                           -5.05,0.15,6.06,-8.86);
var i:byte;
    min:real;
begin
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i]:7:2);
writeln;
min:=a[1];
for i:=2 to n do
if abs(a[i])<abs(min) then min:=a[i];
writeln('Минимальный по модулю элемент=',min:0:2);
readln
end.

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

Данный код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет переменные: n - количество элементов в массиве, a - массив чисел, i - индекс элемента массива, min - минимальное значение из массива.
Создает массив a с 11 элементами.
Инициализирует переменную min значением первого элемента массива a.
Выводит содержимое массива a на экран.
Находит минимальное значение из массива a, обновляя значение переменной min, если найденное значение меньше текущего значения min.
Выводит на экран минимальное значение из массива a.
Завершает работу программы. Таким образом, данный код находит минимальный по абсолютной величине элемент массива и выводит его на экран.