Массивы, задачка... I need help ! Опции

[Valkirie]

Ребята, помогите, плииз.... чё то я не совсем понимаю...что тут к чему...

Вводится прямоугольный массив, состоящий из 0 и 1. Можно ли в нем выбрать 2 строки так, чтобы в них каждый столбец содержал хотя бы одну единицу. Динамическими массивами не пользоваться.

Вход
В первой строке входа дано количество строк M и количество столбцов N в массиве. Далее следуют MxN элементов массива в следующем порядке: сначала элементы первой строки, затем элементы второй строки и т.д. (0 либо 1, по одному в каждой строке).

Выход
На выход напечатать yes в случае положительного ответа и no в случае отрицательного.

[volvo]

Ну зачем же так круто? Оба измерения - не надо
Достаточно одного... Смотри:

Код

Const maxN = 32;
Var Arr: array[1 .. 100] of LongInt;
begin
 { Читаем M, N }
 for i := 1 to m do
   for j := 1 to n do
     begin
       readln(x); { Читаем очередное число }
       if x = 1 then Arr[i] := Arr[i] or $1;
       Arr[i] := Arr[i] shl 1
     end;
 { Заполнила массив чисел, теперь - перебором их... }
end.