![]() |
|
|
#1
|
|||
|
|||
![]() Помогите пожалуйста, товарищи программеры
![]() |
#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
|
|||
|
|||
![]() Большое спасибо
![]() |