дан двухмерный массив. Выяснить, имеется ли в нём положительный элемент, вывести его координаты и заменить всё элементы на его значение.

Program Pr1;

uses crt;

var mas:array[1 ... 20,1 ... 20] of integer;

i, j, v:integer;

Begin

clrscr;

for i:=1 to 20 do

for j:=1 to 20 do readln (mas[i, j]) ;

for i:=1 to 20 do

for j:=1 to 20 do if mas[i, j]>0 then begin

writeln (i,'-ая строка ', j,'-ый столбец') ;

v:=mas[i, j];

end;

for i:=1 to 20 do

for j:=1 to 20 do mas[i, j]:=v;

end.