Дан массив содержащий N элементов. Задание такое: Напечатать все элементы, которые не повторяются — QBasic(Бейсик)

disel
1
2
Например дан массив А: 5 2 3 4 5 3
Здесь это 2 и 4.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS 'Programma k 3ada4a 5, 3adanie 19
INPUT "N= ", N
DIM A(N)
FOR I = 1 TO N
    INPUT A(I)
NEXT
PRINT "ishodnyj massiv"
FOR I = 1 TO N
    PRINT A(I);
NEXT
PRINT
PRINT "nepovtoryayushiesya elementy:"
FOR I = 1 TO N
    f = 0
    FOR j = 1 TO N
        IF I <> j AND A(I) = A(j) THEN f = 1
    NEXT
    IF f = 0 THEN PRINT A(I);
NEXT

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

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

Leave a Comment