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