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

Question

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

Comments

Побочная диагональ это какая, забыл?

---

Которая главная?

---

побочная диагональ сверху слева и до низа справа, она не главная

---

ой наоборот

---

справа сверху и до низа влево

---

сейчас будет

---

через Random напишу лады?

---

через него и надо

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:=A[i,j];
Writeln('min = ',min);
end.

Comments

спс огромноеееееее

---

незачто) обращайся)