Задано массив А(n). Получить последовательность чисел A(2) — A(1); A(3) — A(1); …; A(n) — A(1) и упорядочить ее по возрастанию — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
INPUT n
DIM a(n)
FOR i=1 TO n
INPUT a(i)
NEXT
FOR i=1 TO n
PRINT a(i);" ";
NEXT
FOR i=2 TO n
a(i)=a(i)-a(1)
NEXT
FOR i=1 TO n
FOR j=2 TO n
IF a(i)<a(i-1) THEN SWAP a(i),a(i-1)
NEXT
NEXT
PRINT
FOR i=1 TO n
PRINT a(i);" ";
NEXT

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

Leave a Comment