Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в

const
m=5;
n=5;
Var
A:array [1..m,1..n] of integer;
B:array [1..5] of integer;
i,j,f,t:integer;
begin
randomize;
for i:= 1 to m do
  begin
  for j:= 1 to n do 
    begin
    A[i,j]:=random(10);
    write(A[i,j],' ');
    end;
    writeln;
    end;
for i:=1 to m do
  for j:=1 to m do
      if (A[i,j] mod 2=1) then
      Inc(t);
      B[t]:=1;
      begin
      f:=1;
      write(B[i],' ');
      end;
      if f=0 then write('В данном массиве все столбцы имеют четные элементы');
      writeln;
 Writeln('Одномерный массив: ');
For i:=1 to t do
Write(B[i],' ');
END.

const
m=5;
n=5;
Var
A:array [1..m,1..n] of integer;
B:array [1..n] of integer;
i,j,t:integer;
c:boolean;
begin
randomize;
for i:= 1 to m do
  begin
  for j:= 1 to n do 
    begin
    A[i,j]:=random(10);
    write(A[i,j],' ');
    end;
    writeln;
    end;
t:=0;
for i:=1 to n do begin
c:=true;
  for j:=1 to m do
      if (A[j,i] mod 2=0) then begin
        c:=false;
        Break;
      end;
  if с then begin
    inc(t);
    b[t]=i;
  end;
end;
if t=0 then write('В данном массиве все столбцы имеют четные элементы') else begin
Writeln('Одномерный массив: ');
For i:=1 to t do Write(B[i],' ');
end;
readln;
END.