Найти последний положительный элемент в массиве

@ARCHI_91 · Регистрация: 19.03.2011

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

Доброго времени суток, уважаемые пользователи нашего форума.

Не могли бы вы помоч с задачей:
Найти последний положительный элемент в массиве A(N).
Начать решать смог:

PureBasic

CLS
INPUT "Vvedite chislo elementov massiva A(N): ", n
DIM a(n)
FOR t = 1 TO n
INPUT "Vvedite elementi massiva A(N): ", a(t)
NEXT t

но "заступорился"....
Заранее очень благодарен

@softmob · 19.03.2011, 12:01

PureBasic

CLS
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite elementi massiva a(n)"; a(i)
NEXT
FOR I = N TO 1 STEP -1
If a(i)>0 then print a(i): exit for
Next

Добавлено через 1 минуту
Не проверял, т.к. пишу с телефона.

@Quiet Snow · 19.03.2011, 16:02

softmob, работает, проверил, хотя и так было видно, что всё в порядке.

@ARCHI_91 · 21.03.2011, 09:15 **[ТС]**

Сообщение от softmob

PureBasic

CLS
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
INPUT "vvedite elementi massiva a(n)"; a(i)
NEXT
FOR I = N TO 1 STEP -1
If a(i)>0 then print a(i): exit for
Next

Добавлено через 1 минуту
Не проверял, т.к. пишу с телефона.

Спасибо большое. Помог очень. Осознал ошибки в своём коде. Но по условию мне нужен номер последнего положительного элемента. Это сам сообразил: просто нужно выводить значение "i" а не "a(i)".

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,625 Записей в блоге: 2
	19.03.2011, 16:02	3
	softmob, работает, проверил, хотя и так было видно, что всё в порядке. 1

	21.03.2011, 09:15