DIM a(14) AS INTEGER
FOR i = 1 TO 14
INPUT a(i)
NEXT i
FOR i = 1 TO 14
IF ABS(a(i)) = 19 THEN s = s + a(i)
NEXT
PRINT "s="; s
END
Тестирование выполнено в программе QB64 ( Скачать )
DIM a(14) AS INTEGER
FOR i = 1 TO 14
INPUT a(i)
NEXT i
FOR i = 1 TO 14
IF ABS(a(i)) = 19 THEN s = s + a(i)
NEXT
PRINT "s="; s
END
Тестирование выполнено в программе QB64 ( Скачать )