[Паскаль][Матрица][Столбцы]

[Hacker19_90]

ну так, а что сложного? Допустим давайте так!
Не будем парится с дин масивами и поэтому создадим массив D размером в 56 элементов, так как у вас исходный массив в семь строк и восемь столбцов! И так

D: array[1..56] of integer;

Потом сделаем некий счётчик количества элементов

count: integer;

Ну а дальше делаем так

count := 0;
for j := 1 to 8 do
begin
    for i := 1 to 7 do 
    begin
        if (m[i,j] > 0) and ((m[i,j] mod 2) = 0) then
        begin
            Inc(count);
            D[count] := m[i,j];
        end;
    end;
end;

Ну а потом выводим массив D

for i := 1 to count do
    Write (D[i], ' ');

[BackSlash]

Hacker19_90,Спасибо за объяснение, но нужно делать строго по условию.
Такой же вариант я уже пробовал сдавать, просили переделать.

[Kas-tet]

Составить программу, проверяющую правильность оргагнизации цикла, используемого для нахождения наибольшего элемента массива. Правильными следует считать любые синтаксически допустимые операторы и их последовательности. Анализ операторов осуществлять по очереди. Пере¬ход к анализу следующего оператора возможен только в случае правильно записанного предыдущего. Размер мас¬сива задать датчиком случайных чисел. Подсчитать общее число ошибок, допущенных при записи фрагмента про¬граммы.