СРОЧНО вводятся 14. Чисел. Определить сколько среди них. Положительных и сколько...

Question

СРОЧНО вводятся 14. Чисел. Определить сколько среди них. Положительных и сколько отрицательных

Answer 1

QBasic

CLS

N=14

DIM A(N)

FOR I=1 TO N

 INPUT A(I)

NEXT I

M=0

L=0

IF A(I)>0 THEN

M=M+1

PRINT "POL"; M

ELSE

L=L+1

PRINT "OTR"; L

END IF