Visual Basic FAQ

Подсчитать число и сумму положительных элементов массива

dim A(4) as integer 'Объявляем массив (из пяти элементов)
 Dim P As Integer 'количество положительных элементов
 Dim O As Integer 'количество отрицательных элементов
 Dim Sum as Double 'сумма
 Dim Pr as Double 'произведение
 Sum = 0
 Pr = 1
 A(0)=0
 A(1)=1
 A(2)=2
 A(3)=3
 A(4)=4
 'перебираем весь массив
 For i = LBound(A) To UBound(A)
  If A(i) < 0 Then
   O = O + 1
   Pr = Pr * A(i)
  Else
   P = P + 1
   Sum = Sum + A(i)
  End If
Next i
'выводим результат
msgbox "Количество положительных элементов в массиве: " & P & vbNewLine & "их сумма равна " & Sum
msgbox "Количество отрицательных элементов в массиве: " & O & vbNewLine & "их произведение равно " & Pr

Запись опубликована on 16.03.2011 at 15:44 и размещена в рубрике: Массив. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.