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

Ответы

Ответ дал: AlexS49
0

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

 

 

 

Похожие вопросы