|
#1
|
|||
|
|||
Задачка)
Помогите пожалуйста, товарищи программеры Вот такая задачка: вычислить и запомнить количество отрицательных элементов каждого столбца для матриц A(10,10), B(15,20).
|
#2
|
||||
|
||||
Это?
Код:
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; |
#3
|
|||
|
|||
Большое спасибо
|