Нужен код к массиву в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д