Двумерный массив в Паскаль

[art.marked]

Здравствуйте!
Хотел бы попросить помощи в решении задачи на языке Паскаль.
Условие: Дан двумерный массив целых чисел. Для каждого его столбца выяснить имеется ли в нем элементы, большие некоторого числа d.
Как проверить столбцы вообще не понял...
Имеется похожая задача , но она ищет положительные числа вов всем массиве.
Вот тело:

Begin
Randomize;
k:=0;
For i:=1 to n do begin
For j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[I,j]:4);
if a[i,j]>0 then
k:=k+1;
End;
Writeln;
end;
Writeln('Количество положительных чисел* = ',k);
Readln;
End.

Заранее спасибо.

[Вадим Мошев]

Нам задано число d.

Рекомендовал бы я объявить массив ЛОГИЧЕСКИХ значений, например

b: array[1..{число столбцов в вашем массиве}] of bollean

Каждому элементу этого массива будет соответствовать качественная характеристика наличия элементов (тупо есть или нет).

Далее вы залазите в ваш массив, анализируете столбцы, а вернее их элементы.
Если в столбце имеется ХОТЯ БЫ ОДИН ТАКОЙ ЭЛЕМЕНТ, вы делаете b[i]:=true, где i - номер столбца, и переходите с следующему столбцу, не обращая внимания на все остальные элементы текущего столбца.


Если в столбце таких элементов не нашлось, то b[i]:=false и переход к следующему столбцу

[art.marked]

Спасибо за подсказку. Но вряд ли это одобрит преподаватель, т.к она ничего нам про это не говорила.
И стыдно признавать, что вообще теперь не понимаю, как это реализовать... если не трудно можете дать хоть отрывок кода?
Заранее спасибо.

[Dvoishnik]

For i:=1 to n do 
For j:=1 to m do
 if a[i,j]>d then  
  begin
   b[j]:=true; 
   beak; 
  end
    else b[j]:=false;

если делать как посаветовал Вадим Мошев то это будет примерно так)

[phomm]

For i:=1 to n do //cols
For j:=1 to m do //rows
 if a[j,i]>d then  // array[rows,cols]
  begin
   b[i]:=true; 
   break; 
  end
    else b[i]:=false;

2мерные массивы адресуются - строка,столбец.

Если сделать как у Вас, то получится что при нахождении подходящего элемента по строке (ибо верхний цикл по столбцам, а вложенный - по строкам), то прервется проверка строки и переходпойдёт на новую строку, а нужно по столбцам, поэтому я поменял индексы - сравните код и увидите

[art.marked]

Начал делать программу и что-то паскаль ругается на "b[i]" .
И не ясно как же все-таки сделать вывод информации, что есть в столбце такие числа и нет...
Код:

Program  pr2;
uses crt;
const n=5;m=5;
Var a:array[1..n,1..m]  of integer;
i,j,d:integer;
Begin
Write ('Введите число d - ');
Readln (d);
Randomize;
For i:=1 to n do //cols
For j:=1 to m do //rows
 if a[j,i]>d then  // array[rows,cols]
  begin
   b[i]:=true; 
   break; 
  end
    else b[i]:=false;
Readln;
End.

[art.marked]

Начал делать программу и что-то паскаль ругается на "b[i]" .
И не ясно как же все-таки сделать вывод информации, что есть в столбце такие числа и нет...
Код:

Program  pr2;
uses crt;
const n=5;m=5;
Var a:array[1..n,1..m]  of integer;
i,j,d:integer;
Begin
Write ('Введите число d - ');
Readln (d);
Randomize;
For i:=1 to n do //cols
For j:=1 to m do //rows
 if a[j,i]>d then  // array[rows,cols]
  begin
   b[i]:=true; 
   break; 
  end
    else b[i]:=false;
Readln;
End.

[Dvoishnik]

спасибо за исправеление.

откуда береться масив А?
вродебы вы забыли:
For i:=1 to n do
For j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]);
end;


насчет вывода поидее смомощью цикла и оператора "IF" если b[i]=true тогда вывод соответствующего сообшения

[art.marked]

Вот сделал программу,но она как-то работает странно... рандомно выдает результат.

Program  pr2;
uses crt;
const n=5;m=5;
Var
   a:array[1..n,1..m]  of integer;
   i,j,d: integer;
   found: boolean;
Begin
clrscr;
For i:=1 to n do
    begin
         writeln;
         For j:=1 to m do
             begin
                  a[i,j]:=random(100)-50;
                  write(a[i,j]:4);
             end;
    end;
writeln;
Write('Введите число d = ');
Readln(d);
For i:=1 to n do
    begin
         For j:=1 to m do
             begin
                  if a[i,j]>d then
                     found:=true
                  else found:=false;
             end;
             if found
                then writeln('В ',i,' столбце имеется чиcло большее d')
                else writeln('В ',i,'столбце нет чиcла больше, чем число d');
    end;
Readln
End.

[Вадим Мошев]

И не ясно как же все-таки сделать вывод информации, что есть в столбце такие числа и нет...

Например, так:

for i:=1 to n do
if b[i] then writeLn('В столбце номер ', i, ' есть такие числа, ура!')
         else  writeLn('В столбце номер ', i, ' Нет таких чисел, увы...');
{здесь n - число столбцов в матрице (двумерном массиве)}