Question

В двумерном массиве выше побочной диагонали надо найти минимальное число на языке Паскаль

Answer 1

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.