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

227

326

Посмотреть ответы 2

Ответы на вопрос:

ольга1718

Информатика

4,8(99 оценок)

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.