дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали. (Паскаль)

const

n = 5; / / Размер матрицы

var

i, e, r: Integer;

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

begin

for i: = 1 to n do

for e: = 1 to n do

begin

//m[i, e] : = Random (101) - 50; / / Заполнение случайными числами

Write ('m[', i,',', e,'] = '); Readln (m[i, e]); / / Ручной ввод матрицы

end;

r : = n;

for i : = 1 to n do

begin

if m[i, r] > = 0 then

Write (m[i, r], ' ');

dec (r);

end;

Readln;

end.