подпрограма(прцедуру/функцыю)

[misha25525]

написать подпрограму(прцедуру/функцыю) в паскале, которая находит максимальное отрецательное значение в двохвымирнам масиве.

[ROMA2PVT]

uses crt;
var
  a:array[1..20,1..20]of integer;
  i,j,m,n,imax,jmax:integer;
begin
 clrscr;
 randomize;
 write('Введите количество строк: ');
 readln(n);
 write('Введите количество столбцов: ');
 readln(m);
 writeln('Исходный массив');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
  end;
  writeln;
 end;
 writeln;
  for i := 1 to n do
  for j := 1 to m do
  if (A[i,j]<0) then
  begin
   imax:=i;
   jmax:=j;
   break;
  end;
  for i := 1 to n do
  for j := 1 to m do
  if (a[i,j]>a[imax,jmax]) and (A[i,j]<0) then
  begin
  imax:=i;
  jmax:=j;
  end;
 write('Масимальный элемент a[',imax,',',jmax,']=',a[imax,jmax]);
 readln;
end.

Ну а подпрограмму сам делай.

[ROMA2PVT]

....................