1.     Дан целочисленный двумерный массив, размерности n х m. Найти минимальный элемент.

var a:array[1..100,1..100] of real;     i,j,n,m:integer;     min:real;     begin     WriteLn('Введите количество строк:');     readLn(n);     WriteLn('введите количество столбцов:');     readLn(m);     for i:=1 to n do begin       for j:=2 to m do begin       a[i,j]:=random(20)-5;       Write(a[i,j]:10:2);       end;       WriteLn();     end;     j:=1;     WriteLn('Минимальные элементы строк:');     for i:=1 to n do begin       min:=a[i,j];       for j:=2 to m do begin         if min>a[i,j] then begin          min:=a[i,j];       end;       end;       Write(min:10:2);     end; end.