Создать двумерный массив размером 5: 5. случайным образом интервал (-300; 300). в 3-ем столбце найти количество положительных элементов. заменить все четные элементы на максимальные.

const n=5;

var a:array[1..n,1..n] of integer;

i,j,k,m:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(599)-299;

write(a[i,j]:5)

end;

writeln

end;

writeln;

for i:=1 to n do if a[i,3]>0 then k:=k+1;

if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k)

else writeln('В В 3-ем столбце нет положительных элементов');

writeln;

m:=a[1,1];

for i:=1 to n do

for j:=1 to n do

if a[i,j]>m then m:=a[i,j];

for i:=1 to n do

begin

for j:=1 to n do

begin

if a[i,j] mod 2 = 0 then a[i,j]:=m;

write(a[i,j]:5)

end;

writeln

end;

writeln;

end.