{* Задача406 *}

REM basic

' Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом: суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет".


CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n: a(i) = FIX(RND * 101 - 50): Next
Do
    j = j + 1
    If a(j)  2 Then s = s + a(j) Else w = 1
Loop Until j = n Or w = 1
For i = 1 To n
    PRINT a(i);
Next
PRINT
If w = 1 Then PRINT "s="; s Else PRINT "dvoiki net"
End