Дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной…

Вывод — координаты положительных элементов побоч диагонали (вначале строка, потом столбик) var a: array[1… 5,1… 5]of integer; i,j: integer; beginfor i: =1 to 5 dofor j: =1 to 5 doa[i,j]: =random (19) -9; for i: =1 to 5 dofor j: =1 to 5 do beginwrite (a[i,j],'); if j=5 then writeln; end; writeln; for i: =1 to 5 dofor j: =1 to 5 doif (i=5-j+1) and (a[i,j]>0) then writeln (i,',j); end.