Дан одномерный массив целых чисел. Найти номера элементов, оканчивающихся цифрой 0 (известно, что такие элементы есть в массиве) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
DIM k AS INTEGER
  
INPUT "Vvedite kol-vo elementov v mas: "; n
  
DIM Ar(1 TO n) AS INTEGER
RANDOMIZE TIMER
  
FOR i = 1 TO n
    Ar(i) = INT(RND * 100)
    PRINT Ar(i)
NEXT i
PRINT
FOR i = 1 TO n
    IF Ar(i) MOD 10 = 0 THEN
        PRINT "Konch. na nol': "; i
    END IF
NEXT i
END

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

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

Leave a Comment