1234567891011 CLS FOR c = 1 TO 100 PRINT "Vvedi chislo"; c; INPUT ": ", n r = SGN(n) + 1 p(r) = p(r) + 1 NEXTPRINT STRING$(80, 196)PRINT "Pologitelnyh :"; p(2)PRINT "Otricatelnyh :"; p(0)PRINT "Nulevih :"; p(1)
1
2
3
4
5
6
7
8
9
10
11 CLS
FOR c = 1 TO 100
PRINT "Vvedi chislo"; c;
INPUT ": ", n
r = SGN(n) + 1
p(r) = p(r) + 1
NEXT
PRINT STRING$(80, 196)
PRINT "Pologitelnyh :"; p(2)
PRINT "Otricatelnyh :"; p(0)
PRINT "Nulevih :"; p(1)