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

1
2
3
4
5
6
7
8
9
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