Дана матрица. Вычислить сумму и число положительных элементов, находящихся под главной диагональю. Вывести матрицу, сумму и число.

program zz1;

const n = 3;

var i, j, k, s: integer;

m: array[1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do begin

for j:=1 to n do begin

m[i, j]:=random (10) - 5; / /заполнение матрицы случайными числами и вывод на экран

write (m[i, j]:3);

end;

writeln;

end;

for i:=1 to n do begin / / проверка элементов выше побочной диагонали

for j:=1 to n do begin

if j > i then if (m[i, j]>0) then begin k:=k+1; s:=s + m[i, j]; end;

end;

end;

writeln (' количество положительных элементов выше главной диагонали = ', k); / /вывод ответа

writeln (' сумма положительных элементов выше главной диагонали = ', s);

end.