матрица 9

Ответ от Џрослав Замащиков[гуру]
uses crt; const n=3; var a:array[1..n,1..n] of integer; min,max,i,j:integer; begin ClrScr; writeln(\'Введите матрицу (9х9)\'); for i:=1 to n do begin for j:=1 to n do readln(a[i,j]); end; max:=0; for i:=1 to n do begin for j:=1 to n do begin if i>j then if (a[i,j]>-30) and (a[i,j]<40) then if a[i,j]>max then max:=a[i,j]; end; end; writeln(\'Максимальное значение: \',max); min:=32000; for i:=1 to n do begin for j:=1 to n do begin if i>j then if (a[i,j]>-30) and (a[i,j]<40) then if a[i,j]