Паскаль!

Заполнить двумерный массив N x N случайными числами из интервала [-10; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.

{Заполнить двумерный массив N x N случайными числами из интервала [-10; 10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю.}const nmax = 20; var A:Array[1 ... nmax, 1 ... nmax] of integer; n, m, i, j, sumN, sumV:integer;

beginwrite ('Введите число n') ; readln (n) ; for i:=1 to n do beginfor j:=1 to n do beginm: = random (20) - 10; A[i, j]: = m; write (A[i, j]:4) ; end; writeln; end;

writeln; writeln; for i:=1 to n do beginfor j:=1 to n do beginif i>j then begin write (A[i, j]:4) ; sumN: = sumN + A[i, j]; end; end; writeln; end;

writeln; writeln;

for i:=1 to n do beginfor j:=1 to n do beginif i < j then begin write (A[i, j]:4) ; sumV: = sumV + A[i, j]; end;

end; writeln; end; if sumN > sumV then write ('Cумма элементов лежащих под главной диагональю больше') else write ('Cумма элементов лежащих над главной диагональю больше') ; end.