Var A:array[1..100,1..100] of Integer; min,i,j,N:integer; begin Readln(N); For i:=1 to N do For j:=1 to N do A[i,j]:=Random(0,100); For i:=1 to N do begin For j:=1 to N do Write(A[i,j],' '); Writeln; end; min:=A[1,1]; For i:=1 to N do For j:=N-i downto 1 do If A[i,j]<min then min:=A[i,j]; Writeln('min = ',min); end.
min,i,j,N:integer;
begin
Readln(N);
For i:=1 to N do
For j:=1 to N do
A[i,j]:=Random(0,100);
For i:=1 to N do
begin
For j:=1 to N do
Write(A[i,j],' ');
Writeln;
end;
min:=A[1,1];
For i:=1 to N do
For j:=N-i downto 1 do
If A[i,j]<min then
min:=A[i,j];
Writeln('min = ',min);
end.