Определить элемент массива, равный заданному числу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д