{* Задача145 *}

REM basic

' Дан массив из 14 элементов. Найти сумму элементов равных по абсолютной величине 19.


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