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

Question

Информатика

Петраха

27 апреля, 13:25

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ульян · 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.