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