Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад