Program asd; Const N=15; M=15; Var l:array [1..15,1..15] of integer; min,i,j,k,k1:integer; Begin min:=l[1,1]; Writeln('Введите элементы матрицы:'); For i:=1 to n do For j:=1 to m do Begin Write('L[',i,',',j,']='); Readln(l[i,j]); If l[i,j]<min then begin min:=l[i,j]; k:=i; k1:=j; end; End; Writeln('Минимальный элемент L[',k,',',k1,']= ',min); End.
Const
N=15;
M=15;
Var
l:array [1..15,1..15] of integer;
min,i,j,k,k1:integer;
Begin
min:=l[1,1];
Writeln('Введите элементы матрицы:');
For i:=1 to n do
For j:=1 to m do
Begin
Write('L[',i,',',j,']=');
Readln(l[i,j]);
If l[i,j]<min then begin min:=l[i,j]; k:=i; k1:=j; end;
End;
Writeln('Минимальный элемент L[',k,',',k1,']= ',min);
End.