Дан одномерный массив вещественного типа состоящий из n элементов. Найти в массиве третий считая слева направо, элемент, имеющий заданное значение x- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT" vvedite kol-vo elementov ",n
DIM a(n)
FOR i=1 TO n
INPUT"vvedite element ",a(i)
NEXT
INPUT"vvedite chislo",x
FOR i=1 TO n
IF a(i)=x THEN k=k+1:IF k=3 THEN PRINT "nomer elementa=";i
NEXT
IF k<3 THEN PRINT"net takogo elementa"

Похожие записи/страницы:

Leave a Comment