Двумерные массивы (delphi 6)

[Роберто]

В матрице b(n*m) найти количество элементов каждой строки, соответствующих неравенству i>=b(ij)<=j . Результаты записать в массив c . Если в строке нет соответствующих элементов, то записать в массив c ноль.

[Hacker19_90]

Наработки в студию!

[Роберто]

Боюсь мне не с чего даже начать
не могу определиться либо через meme вводить, либо через Edit`ы

[unbanned]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 5;
  m = 5;

type
  matrix = array[1..n, 1..m] of integer;

var
  b: matrix;
  k, i, j: integer;
  c: array[1..n] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      b[i, j] := random(25) - 5;
    end;
  end;
  
  for i := 1 to n do
  begin
    k := 0;
    for j := 1 to m do
    begin
      if {} then
        inc(k);
    end;
    c[n] := k;
  end;
  
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      write(b[i, j]: 3);
    end;
    writeln;
  end;

  writeln;  

  for i := 1 to n do
  begin
    writeln(c[i]);
  end;
  readln;
end.

[Роберто]

В рот мне ноги. оперативно, спасибо.

[Роберто]

магия имеется ввиду оператор if ?

[unbanned]

Сообщение от Роберто

имеется ввиду оператор if ?

вообщем то да... условие верно составь, и вроде должно работать