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

[art.marked]

Да вроде так и сделал.
Прорамма странно ищет результаты, я видеть где-то индекс не правильно поставил, или что-то другое...

[Hacker19_90]

Покажите окончательный ваш код!

[nuHrBuH]

uses crt;
var
   x : array [1..10,1..10] of integer;
   i, j,
   m, n : byte;
      d : integer;
      k : byte;

begin
  write('vvedite chislo : '); readln(d);

  write('razmer massiva : '); readln(m,n);

  writeln('vvedite Massiv :');
   for i:=1 to m do
    for j:=1 to n do
      read(x[i,j]);

  for j:=1 to n do
     begin
      k:= 0;
        for i:=1 to m do
          if x[i,j] > d
            then
                k:= k + 1;
         writeln('v ',j,' stolbce ',k,' elementov(a).');
      end;

end.

[Dvoishnik]

откуда у вас переменная вылезла логического типа сказанож было нужно использовать масив
вам считай написали прогу осалось собрать воедино..

по последнему коду незваатет проверки на размерность матрици ввод чисел больше 10 и меньше 1

[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 = ');                          {Ввод и считывание числа d}
Readln(d);
For i:=1 to n do
    begin
         For j:=1 to m do
             begin
                  if a[j,i]>d then                                 {Проверка элементов массива}
                     found:=true;
             end;
             if found
                then writeln('В ',i,' столбце есть элемент больше, чем d ')
                else writeln('В ',i,' столбце нет элемента больше, чем d ');
    end;
Readln;
End.