Пользователь вводит запас топлива для N районов. Выявить три района, обладающих наименьшими запасами топлива- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kol-vo rayonov ", n
DIM a(n), nom(n)
FOR i = 1 TO n
    PRINT "rayon nomer "; i
    INPUT "zapas=", a(i)
    nom(i) = i
NEXT
PRINT "rayon", "zapas"
FOR i = 1 TO n
    PRINT nom(i), a(i)
NEXT
FOR i = 1 TO n
    FOR j = 2 TO n
        IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1): SWAP nom(j), nom(j - 1)
    NEXT
NEXT
PRINT " rayony s minimalnym zapasom"
PRINT "rayon", "zapas"
FOR i = 1 TO 3
    PRINT nom(i), a(i)
NEXT

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

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

Leave a Comment