Program  dmas_13;
uses crt;
const n=3;m=4;
Var a:array[1..n,1..m]  of integer;
min,i,j,k,l:integer;
Begin
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(10); 
write(a[I,j]:4);
end;
writeln;
end;
min:=a[1,1];
k:=1;l:=1;
For i:=1 to n do
For j:=1 to m do
If min> a[i,j] then  
begin 
min:=a[i,j];
k:=I; 
l:=j; 
end;
Writeln('­ Индексы первого наименьшего элемента =  ',k,',',l);
Readln;
End.