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

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"

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment