Question

Найти минимальный элемент матрицы L(15,15) программа паскаль

Answer 1

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.