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

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

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

Leave a Comment