{* Задача136 *}

REM basic

' Даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющие нечетный индекс, на элементы массива В, имеющие четный индекс, и найти минимальные элементы АМАХ и ВМАХ.


CLS
RANDOMIZE TIMER
n = 20
Dim a(n)
Dim b(n)
Dim c(n)
PRINT "avomaticheskoe zapolnenie massiva(nagmite1)"
PRINT "vvod chisel v ruchnuy(nagmite 2)"
Do
    q$ = INKEY$
Loop Until q$ = CHR$(49) Or q$ = CHR$(50)
Select Case q$
    Case Is = CHR$(49)
        GoTo 1
    Case Is = CHR$(50)
        GoTo 2
End Select
1 CLS
For i = 1 To n
    a(i) = FIX(100 * RND(1) - 50)
    b(i) = FIX(100 * RND(1) - 50)
Next i
GoTo 3
2 For i = 1 To n
    CLS
    PRINT "zapolnenie massiva A"
    PRINT "vvedite A("; i; ")"
    INPUT a(i)
Next i
For i = 1 To n
    CLS
    PRINT "zapolnenie massiva B"
    PRINT "vvedite B("; i; ")"
    INPUT b(i)
Next i
3 For i = 1 To n
    If (i / 2)  INT(i / 2) Then c(i) = a(i)
    If (i / 2) = INT(i / 2) Then b(i) = c(i - 1)
Next i
amin = a(1)
bmin = b(1)
For i = 2 To n
    If a(i) < amin Then amin = a(i)
    If b(i) < bmin Then bmin = b(i)
Next i
CLS
PRINT
PRINT "massiv A:"
For i = 1 To n
    PRINT a(i);
Next i
PRINT
PRINT "massiv B:"
For i = 1 To n
    PRINT b(i);
Next i
PRINT "A(min):"; amin
PRINT "B(min):"; bmin
End