Question

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

Answer 1

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.

Answer 2

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

Answer 3

спасибо)))

Answer 4

спасибо))))