В массиве найдите суму элементов

@olechka21kuz · Регистрация: 12.09.2009

Author24 — интернет-сервис помощи студентам

Уважаемые господа программисты выручайте!!!
Надо срочно решить задачу!!! В Бейсике, через Word.
Дан массив А(10). В массиве найдите суму элементов после первого отрицательного и сумму элементов до него. Ответ жду в теме или по электронке olechka21kuz@sibmail.com

@Toxa33rus · 12.09.2009, 19:37

Visual Basic

summ1=0
summ2=0
firstOtr=0 '
For i=1 to 10 '
  If A(i) < 0 then
    firstOtr=i
    exit for
  End if
Next i
 
For i=1 to firstOtr-1
  summ1 = summ1 + A(i)
Next i
 
For i= firstOtr+1 to 10
  summ2 = summ2 + A(i)
Next i
 
Msgbox "Сумма ДО первого отрицательного: " & summ1 & vbcrlf & "Сумма После первого отрицательного: " & summ2

@olechka21kuz 0 / 0 / 0 Регистрация: 12.09.2009 Сообщений: 6
		1
	В массиве найдите суму элементов 12.09.2009, 19:22. Показов 1066. Ответов 1 Метки нет (Все метки) Уважаемые господа программисты выручайте!!! Надо срочно решить задачу!!! В Бейсике, через Word. Дан массив А(10). В массиве найдите суму элементов после первого отрицательного и сумму элементов до него. Ответ жду в теме или по электронке olechka21kuz@sibmail.com 0

	12.09.2009, 19:37