|
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
|