{* Задача106 *}

REM basic

' Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3.


INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    PRINT "vvedite"; i; "element";
    INPUT a(i)
    If a(i) Mod 3 = 2 Then s = s + a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
PRINT
PRINT "s="; s
End