Имеется массив строк, каждая из которых содержит по два слова, разделенных одним пробелом. профессия и фамилия. Составить программу для выделения фамилий в отдельный массив — QBasic(Бейсик)

disel
1
2
3
4
5
например:
 
ИНЖЕНЕР ИВАНОВ
КОНСТРУКТОР КОЗЛОВ
и т.д.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
INPUT "vvedite n"; n
DIM a$(n), b$(n)
PRINT "    vvod dannyh"; STRING$(80, 196)
FOR i = 1 TO n
    INPUT "vvedite professiju i familiju"; a$(i)
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT a$(i)
NEXT
FOR i = 1 TO n
    b$(i) = RIGHT$(a$(i), LEN(a$(i)) - INSTR(a$(i), " "))
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT b$(i)
NEXT

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