Массив (QBasic)

[Leonid.]

Написать программу для определения индекса элемента одномерного массива, который равен 25.

[Arigato]

От нас что требуется?

[Leonid.]

Сказано ведь

[Arigato]

Так то от вас требуется, а не от нас...

[digitalis]

Сообщение от Leonid.

Написать программу для определения индекса элемента одномерного массива, который равен 25.

Кто равен 25? индекс? элемент? или без разницы?

[ViktorR]

Написать программу для определения индекса элемента одномерного массива, который равен 25.

Кто равен 25? индекс? элемент? или без разницы?

На русском, запрос написан грамотно, но под Новый Год и не такое можно увидеть.
Тем более с вопросом "Кто?", а не "Что?"

ТС, сделай первый шаг.
Создай массив из случайных чисел целого типа.
Выложи сюда код, возможно и поможем.

А то, глядишь, и сам сможешь просмотреть массив в цикле и поискать в нём значение 25.
Как найдёшь, так сохрани индекс или сразу на печать.

[сфинкс]

ежели 25-тёрки не обнаружит
стартовать ещё раз
или изменить длину n массива a(n)

'massiv25.bas
n = 60
DIM a(n)
RANDOMIZE TIMER

FOR i = 1 TO n
    a(i) = INT(RND * 50)
    PRINT i; " = "; a(i),
NEXT
PRINT: PRINT: PRINT
FOR i = 1 TO n
    IF a(i) = 25 THEN PRINT i
NEXT

домашнее задание автору темы:
? что делает каждая строчка ?

https://www.youtube.com/watch?v=V3gfrGL2yro

(на ютюб канал форума подписан)