Помогите с двумерным массивом ПЛЗ)))

[Distract]

B (5,6) Подсчитать количество отрицательных элементов в каждом столбце.

P.S. зарание спасибо = )

[Rusl92]

Блин, воспользуйтесь старыми темами. Задачки сходные встречаются...

var b:array[1..100,1..100] of integer;
     n,m,i,j,sum:integer;
begin
  n:=5;
  m:=6;
  sum:=0;
  for i:=1 to n do
   for j:=1 to m do
      if a[i,j]<0 then sum:=sum+a[i,j];
  writeln('Summa ravna ',sum:3); 
  readln
end.

[puporev]

Rusl92 внимательно читайте условие.

B (5,6) Подсчитать количество отрицательных элементов в каждом столбце.

Вот правильный код.

uses crt;
const n=5;
      m=6;
var b:array[1..n,1..m] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
       b[i,j]:=random(10)-4;
       write(b[i,j]:4);
      end;
    writeln;
  end;
for j:=1 to m do
   begin
     k:=0;
     for i:=1 to n do
     if b[i,j]<0 then k:=k+1;
     writeln('V stolbce ',j,'   ',k,' otricatelnyh elementov');
   end;
readln
end.