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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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