Как вставить новую строку после всех строк , в которых нет ни одного четного элемента? ( Pascal ABC ). Сам код:
var i,j,k,n,h,p,g,m: integer;
a,x: array [1..10,1..10] of integer;
begin
writeln('Введите цифру, которой хотите заполнить строку ');
readln(n);
writeln('Введите размерность двумерного массива ');
readln(m);
k:=0;
h:=0;
g:=0;
for i:=1 to m do
for j:=1 to m do
read(a[i,j]);
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then h:=h+1;
end;
if h <> 0 then k:= k + 1;
h:=0;
end;
p:=0;
h:=1;
for i:=1 to m do
begin
for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then
begin
x[h,j]:=a[i,j];
p:=p+1;
end
else
begin
x[h,j]:=a[i,j];
end;
end;
if p<>0 then
begin
h:=h+1;
for g:=1 to m do
x[h,g]:=n;
h:=h+1;
p:=0;
end
else h:=h+1;
end;
for i:=1 to (m+k) do
begin
for j:=1 to m do
writeln(x[i,j]);
end;
end.

vladimlr    1   06.06.2020 13:56    2