Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив.

[darwin1]

Дан массив X(N,M).Найти номера столбцов массива,все элементы которых четны. Из полученных значений сформировать одномерный массив.

[Stilet]

Сможешь показать ввод массива?

[darwin1]

нет.не смогу

[Stilet]

Жаль... Ладно. Держи:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
const n=6;m=6;
Type

  { TArray }

  TArray=class
    private
      X:Array[1..n,1..m] of integer;
      chn:Array[1..m] of boolean;
    public
      procedure Fill;
  end;

  { TVector }

  TVector=class
    Private
      Vec:Array of integer;
      Procedure Assign(Arr:TArray);
      Procedure aWrite;
  end;

{ TVector }

procedure TVector.Assign(Arr: TArray);
var i,j:integer;
begin
 with Arr do begin
  j:=0;
  for i:=Low(chn) to High(chn) do if chn[i] then inc(j);
  SetLength(Vec,j);
  j:=0;
  for i:=Low(chn) to High(chn) do if chn[i] then begin Vec[j]:=i; inc(j);end;
 end;
end;

procedure TVector.aWrite;
var i:integer;
begin      writeln;writeln;writeln;writeln;
  for i:=Low(Vec) to High(Vec) do   write(Vec[i]:5); writeln;
end;

{ TArray }

procedure TArray.Fill;
var i,j:integer;
begin    Randomize;
 for i:=Low(chn) to High(chn) do chn[i]:=true;
 for i:=Low(x) to High(x) do begin
   for j:=Low(x[i]) to High(x[i]) do begin
     x[i,j]:=Random(200)*2; Write(x[i,j]:5);
     if ((x[i,j] mod 2)<>0) then chn[j]:=false;
   end; writeln;
 end;
end;

var a:TArray; v:TVector;
begin
 a:=TArray.Create; a.Fill;
 v:=TVector.Create; v.Assign(a); v.aWrite;
 a.Free; v.Free;;
 readln;
end.