В двумерном массиве выше побочной диагонали надо найти минимальное число на языке Паскаль
В двумерном массиве выше побочной диагонали надо найти минимальное число на языке Паскаль
Гость
Ответ(ы) на вопрос:
Гость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]