Program Lab8_22; uses crt;

const n=10; m=6;

var x:array [1..n,1..m] of integer;
    y:array [1..m] of integer;
    i,j:byte;

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Writeln(' Матрица X');
for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
    X[i,j]:=Random(81);
        X[i,j]:=X[i,j]-35;
        Write(X[i,j]:5);
        end;
    Writeln;
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Вектор Y');
for j:=1 to m do
    Begin
    Y[j]:=0; {Если не будет четных элементом, то запишем 0}
    for i:=1 to n do if not Odd(X[i,j]) then
                                        Begin
                                        Y[j]:=X[i,j];
                                        break;
                                        end;
    Write(Y[j]:5);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.