помогите с решением задачки на пасале

[moLodou]

надо решить задачу, помогите кто чем может:
Составить программу нахождения числа(вводится с клавиатуры), встречающегося во нечетных столбцах двумерного массива A (N,N), если такого числа нет, то вывести сообщение "нет".

[DM_bite]

Помогу: проверка числа на четность/нечетность с помощью mod и оператор ветвления... Все.

[moLodou]

прога то на поиск числа,которое вводишь вначале, его прога ищет и выводит; если его нет то сооющение "нет". Как этот поиск то задать?

[DM_bite]

прога то на поиск числа,которое вводишь вначале, его прога ищет и выводит; если его нет то сооющение "нет". Как этот поиск то задать?

Пробегаешь циклом по массиву сначала и проверяешь равно ли это число элементу массива.

[Veselyn]

Для поиска

Var  
i, j, poisk: integer;
mas : array [1..n, 1..m] of byte;
begin
.................
readln (poisk);
for i:=1 to n do
for j:=1 to m do
if (j mod 2<>0 and poisk=mas[i,j]) theh
writeln (poisk,' ');
............

Могу ошибатся в коде но принцип такой

[Sasha_Smirnov]

Veselyn, от 1 до эм — это ведь ВСЕ столбцы, а просят обыскать — нечётные.

И вся прелесть этой задачи пропадает! Это не мне важно, а качеству форума.

[Veselyn]

Извените, исправил. Sasha_Smirnov спасибо

[Veselyn]

Var  
i, j, poisk: byte;
mas : array [1..10, 1..10] of byte;
begin
Randomize;
for i := 1 To 10 Do
  for j := 1 To 10 Do
    Mas[i,j] := Random(5) + 1;
writeln ('poisk');
readln (poisk);
for i:=1 to 10 do
begin
for j:=1 to 10 do
if (j mod 2<>0 and poisk=mas[i,j] then
writeln (poisk,' ');
end.

Код непроверял, если кто найдет ошибки, прошу исправить.