Задача
дано 100 чисел: sin1, sin2, ... , sin100
Эти числа разбиваются на пары и перемножаются. Получается 50 чисел, которые и складываются.
Требуется всё это проделать так, чтобы получить максимальную сумму.
решение
1. числа загоняются в массив
2. массив сортируется
3. рядом стоящие элементы перемножаются и все суммируется
Вопрос. Будет ли это Истинный максимум?
Код:
REM
REM SUMMA = 25.11266
REM
CLS
CONST n = 100
DIM x(1 TO n)
FOR i = 1 TO n
x(i) = SIN(i)
NEXT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF x(i) > x(j) THEN SWAP x(i), x(j)
NEXT j, i
FOR i = 1 TO n - 1 STEP 2
S = S + x(i) * x(i + 1)
NEXT
PRINT "SUMMA ="; S
END