Нужен код к массиву в vb 6:(((
Формулировка задачи:
пожалуйста, помогите с кодом! задан массив из 20 чисел. определить количество элементов массива, равных последнему элементу, найти сумму и произведение этих элементов
Решение задачи: «Нужен код к массиву в vb 6:(((»
textual
Листинг программы
Private Sub Command1_Click()
Dim A(20), SUM, PROIZV, KOL As Single
SUM = 0: PROIZV = 1: KOL = 0
For i = 1 To 20
A(i) = I
Print ; "A("; i; ")="; A(i)
If A(i) = A(20) Then
SUM = SUM + A(i)
PROIZV = PROIZV * A(i)
KOL = KOL + 1
End If
Next
Print Print ; "Сумма элементов, равных последнему элементу="; SUM, "Произведение элементов, равных последнему элементу="; PROIZV, "Количество элементов, равных последнему элементу="; KOL
End Sub