Помогите!Дан массив действительных чисел. Найти сумму трех его наибольших чисел. Заметим,...

Question

Помогите!Дан массив действительных чисел. Найти сумму трех его наибольших чисел. Заметим, что массив вначале следует отсортировать по неубыванию, а затем три последних элемента и дадут искомый результат.(Basic)

Answer 1

PRINT "Array size: "
INPUT n
PRINT "Input array: "
DIM a(n), t AS DOUBLE
FOR in = 1 TO n
    INPUT a(in)
NEXT in

FOR i = 1 TO n    
     FOR j = n - 1 TO i STEP -1
        IF a(j) > a(j + 1) THEN
            t = a(j)
            a(j) = a(j + 1)
            a(j + 1) = t
        END IF
    NEXT j
NEXT i

PRINT a(n - 2)
PRINT a(n - 1)
PRINT a(n)

Сначала вводится количество элементов в массиве, затем сами элементы. После ввода последнего элемента программа выводит три наибольших числа.