[N3xt]

Помогите пожалуйста, товарищи программеры Вот такая задачка: вычислить и запомнить количество отрицательных элементов каждого столбца для матриц A(10,10), B(15,20).

[Aristarh Dark]

Это?

Код:

var
  A:array [1..10,1..10] of integer;
  B:array [1..10,1..15] of integer;
  NegativeA:array [1..10] of integer;
  NegativeB:array [1..15] of integer;
  i,j:integer;
begin
  ZeroMemory(@NegativeA,SizeOf(NegativeA));
  ZeroMemory(@NegativeB,SizeOf(NegativeB));
  for i:=1 to 10 do
    for j:=1 to 10 do
      begin
        A[i,j]:=Random(2000)-4000;
        if A[i,j]<0 then
          inc(NegativeA[j]);
      end;
  for i:=1 to 10 do
    for j:=1 to 15 do
      begin
        B[i,j]:=Random(2000)-4000;
        if B[i,j]<0 then
          inc(NegativeB[j]);
      end;
end;

[N3xt]

Большое спасибо