---

Var a: array[1…50,1…50] of integer;
i, j, m, n, min, K: integer;
Begin
Write('сколько строк?"); Readln(m);
Write('сколько столбцов?' Readln(n);
For i:=1 to m do
Forj:=1 to n do begin write('a[',i,','j,']='); readln (a[i,j]); end;
min:=a[1,1]; K:=1;
For i:=1 to m do
For j:=1 to n do
If a[i.j]< min then
begin
min:=a[i,j]; K:=i;
end;
Writeln("наименьшее число ",min,' находится в ', k, строке');
End.