zadach101.BAS

{* Задача101 *}

REM basic

' Составьте программу вычисления произведния ненулевых элементов одномерного массива А(N), встречающихся в этом массиве ровно один раз


CLS
PRINT "kol-vo elementov"
INPUT n
Dim a(n), b(n)
PRINT "zopolnenie massiva"
For i = 1 To n
    INPUT a(i)
Next
CLS
PRINT "massiv:"
For i = 1 To n
    k = 0
    PRINT a(i);
    For i2 = 1 To n
        If a(i) = a(i2) Then k = k + 1
    Next
    If k = 1 And a(i)  0 Then p = p + 1: b(p) = a(i)
Next
PRINT
r = 1
For i = 1 To p
    r = r * b(i)
Next
PRINT "proizvedenie:"; r
End