Дан массив из 14 элементов. Найти сумму элементов равных по абсолютной величине 19- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment