дан массив.нужно посчитать количество положительных и отрицательных элементов.

progRAM MASSIV;USES CRT;var K,K1, i,j,m,n:integer;x:array[1..50,1..50] of integer;beginread(n,m);for I:=1 to n dofor J:=1 to m dox[i,j]:=random(10);K:=0;for I:=1 to n dofor J:=1 to m doIF X[I,J]>0 THEN INC(K);for I:=1 to n dofor J:=1 to m doIF X[I,J]<0 THEN INC(K1);for I:=1 to n do beginfor J:=1 to m dowrite (x[i,j]:5);writeln;end;WRITELN(K);WRITELN(K1);end. вот по этой методике

А зачем двумерный массив?)

сложновато

При условии что ноль ни положительный ни отрицательный

)я знаю

Можно и проще решить

спасибо)))

спасибо))))

Var a:array [1..10]of integer; I, j, plus,minus: integer; Begin Plus:=0; Minus:=0; For i:=1 to 10 do begin Read ( a [ I ] ); If a[ I ] >0 then plus :=plus+1; If a [ i]<0 then minus:=minus+1; End; Writeln (plus, minus); End.