Даны два массива по 20 элементов. Получить новый, сложив соответствующие элементы исходных массивов. Найти элемент третьего массива, соответствующий минимальному элементу второго массива.- QBasic(Бейсик)

disel

Результать распечатать в виде:
Массив 1:
Массив 2:
Массив 3:
MIN=
imin=
max3(imin)

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
33
34
35
36
37
38
CLS
n = 20
DIM a(n), b(n), c(n)
FOR i = 1 TO n
    PRINT "vvedite element a(i)"; i
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT "vvedite element b(i)"; i
    INPUT b(i)
NEXT
min = b(1)
FOR i = 1 TO n
    IF b(i) < min THEN min = b(i): q = i
    c(i) = a(i) + b(i)
NEXT
FOR i = n TO 1 STEP -1
    IF c(i) = min THEN k = i
NEXT
CLS
PRINT "massiv 1"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "massiv 2"
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT "massiv 3"
FOR i = 1 TO n
    PRINT c(i);
NEXT
PRINT
PRINT "min ="; min
PRINT "imin ="; q
IF k <> 0 THEN PRINT "mas3(imin) ="; k ELSE PRINT "net sovpadenij"

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

Похожие записи/страницы:

Leave a Comment