zadach97.BAS

{* Задача97 *}

REM basic

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


For i=1 To n
f1=0
f2=0
For j=1 To n
If a(i)=b(j) Then f1=1
If a(i)=c(j) Then f2=1
Next
If f1+f2=2 Then s=s+a(i)
Next
PRINT s
End