1. Дана матрица А, состоящая из N строк и М столбцов. Найти наименьший среди отрицательных и наибольший среди положительных элементов. Предусмотреть случай отсутствия положительных или отрицательных элементов в матрице.
PASCAL!

const

 n = 5; m = 7;

var

 a: array [1..n, 1..m] of integer;  

 max, min, i, j: integer;

begin

 max := 0; min := 0;  

 for i := 1 to n do

 begin

   for j := 1 to m do

   begin

     a[i, j] := random(21) - 10;  

     write(a[i, j]:4);

     if (a[i, j] < 0) then  

       if (a[i, j] < min) then  

         min := a[i, j]

       else  

         continue

     else  

       if a[i, j] > max then  

         max := a[i, j];

   end;

   writeln;

 end;

 writeln;

 if min = 0 then

   writeln('Min Error')

 else writeln('Min: ', min);

 if max = 0 then

   writeln('Max Error')

 else writeln('Max: ', max);

end.