Определить элемент массива, равный заданному числу - VB
Формулировка задачи:
Есть ли в массиве A( N), (N<=15) число 15, если есть, на каком месте оно стоит (известно, что оно может встретиться только однажды).
Нужно составить программу в Visual Basic
Решение задачи: «Определить элемент массива, равный заданному числу»
textual
Листинг программы
dim A() as long
dim N as integer, I as Integer
NAX:
N=CInt(Val(InputBox("BBEDITE N")))
if N>15 or N<1 then GOTO NAX
Redim A(N)
for I=1 to N
A(I)=Val(InputBox("BBEDITE EL-T A(" & I & ")"))
next I
For I=1 to N
if A(I)=15
msgbox I
exit for
end if
next I