Даны два массива A и B по 20 элементов каждый. Поменять местами элементы массива A,имеющие нечетный индекс,на элементы массива B, имеющие четный. Найти мин значение в каждом массиве — QBasic(Бейсик)

DIM a(20), b(20)
FOR i = 1 TO 20
    INPUT "vvedite element massiva a", a(i)
NEXT
FOR j = 1 TO 20
    INPUT "vvedite element massiva b", b(j)
NEXT

FOR i = 1 TO 10
    SWAP a(2 * i - 1), b(2 * i)
NEXT


minA = a(1)
FOR i = 1 TO 20
    IF minA > a(i) THEN minA = a(i)
NEXT
minB = b(1)
FOR j = 1 TO 20
    IF minB > b(j) THEN minB = b(j)
NEXT
PRINT "massiv a: ";
FOR i = 1 TO 20
    PRINT a(i); " ";
    PRINT "massiv b: ";
    FOR j = 1 TO 20
        PRINT b(j); " ";
        PRINT "minA =", "minB =", minA, minB
        PRINT
        PRINT
    NEXT
NEXT

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

Leave a Comment