Создать двумерный массив размером 5:5. Случайным образом интервал (-300;300). В 3-ем столбце найти количество положительных элементов. Заменить все четные элементы на максимальные. ПОМОГИТЕЕЕЕ!!!!!!!!!!!
More Questions From This User See All
Answers & Comments
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.