Нужно решить задачу с помощью Paskal.
Нужно найти минимальный элемент среди отрицательных чисел и максимальный элемент среди положительных

Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужноvar arr: array [1..10] of integer;var i,min,max:integer;beginfor i:=1 to 10 do beginwriteln('Введите ',i,' элемент');readln(arr[i]);end;min:=0;max:=0;for i:=1 to 10 do beginif (arr[i]<0) then beginif (arr[i]<min) then beginmin:=arr[i];end;endelseif (arr[i]>0) then begin if (arr[i]>max) then begin max:= arr[i];end;end;end;writeln('Минимальный элемент среди отрицательных чисел ',min);writeln('Максимальный элемент среди положительных чисел ',max);end.