Задайте символьный массив. с не повторяющейся длиной слов. Поменяйте местами минимальное и максимальное по длине слова. Выведите на экран полученный массив- QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kol-vo slov ", n
DIM a$(n)
FOR i = 1 TO n
    INPUT "vvedite slovo ", a$(i)
NEXT
min = 1
max = 1
PRINT "ishodnyj massiv"
FOR i = 1 TO n
    PRINT a$(i); " ";
NEXT
PRINT
FOR i = 1 TO n
    IF LEN(a$(i)) > LEN(a$(max)) THEN max = i
    IF LEN(a$(i)) < LEN(a$(min)) THEN min = i
NEXT
SWAP a$(max), a$(min)
PRINT "novyj massiv"
FOR i = 1 TO n
    PRINT a$(i); " ";
NEXT

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

Leave a Comment