CLS
DIM a(10)
FOR i=1 TO 10
a:
INPUT a(n)
IF INT(a(n))<>a(n) THEN GOTO a
s=s+a(n)
NEXT i
PRINT s
примерная блок-схема, можно конечно и покрасивее нарисовать...
CLS
DIM a(10)
FOR i=1 TO 10
a:
INPUT a(n)
IF INT(a(n))<>a(n) THEN GOTO a
s=s+a(n)
NEXT i
PRINT s
примерная блок-схема, можно конечно и покрасивее нарисовать...