Нужен код к массиву в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы