Дана целочисленная матрица 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.