Page 136 - 4192
P. 136

Приклад.  Підсумовування  елементів  масиву  В(N),
           задовольняючих заданій умові (В(і)>Т):

                S=0
                For i=1 To N
                If B(i)>=T Then S=S+B(i)
                Next i
                Приклад.  Формування масиву В(М) із  елементів  іншого
           масиву А(N), задовольняючих заданій умові (А(і)>Т):

                j=0
                For i=1 To N
                If A(i)>T Then
                j=j+1
                B(j)=A(i)
                End If
                Next i

                Приклад. Пошук максимального елементу в масиві А(N)
           із запам’ятовуванням його положення (індексу) в масиві:
                P=A(1)
                K=1
                For i=2 To N
                If P<=A(i) Then
                P=A(i):K=i
                End If
                Next i
                Приклад.  Об’єднання  двох  масивів  А  і  В  розміром  N  в
           один масив С розміром 2N з чергуванням елементів початкових
           масивів:
                For i=1 To N
                C(2*i-1)=A(i)
                C(2*i)=B(i)
                Next i

                                             135
   131   132   133   134   135   136   137   138   139   140   141