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

Категория: Basic

2011-11-03 11:31:22

code: #basic

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

автор: кот Бегемот

Поделиться:

Sample Code

категории

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

Похожие статьи: