Определить элемент массива, равный заданному числу - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы