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

DIM a$(12)
FOR i = 1 TO 12
    INPUT "vvedite familiyu ", a$(i)
NEXT
min$ = a$(1)
max$ = a$(1)
PRINT "ishodnyj massiv"
FOR i = 1 TO 12
    PRINT a$(i)
NEXT

FOR i = 1 TO 12
    IF LEN(a$(i)) > LEN(max$) THEN max$ = a$(i)
    IF LEN(a$(i)) < LEN(min$) THEN min$ = a$(i)
NEXT
PRINT "samaya dlinnaya="; max$
PRINT "samaya korotkaya="; min$

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

Leave a Comment