END FUNCTION

Здесь n – число элементов данной последовательности.

10. Найти максимальную из сумм трех координат векторов , , , содержащих по n координат. Вычисление суммы координат оформить в виде подпрограммы.

INPUT n

DIM a1(n), a2(n), a3(n), a(n)

FOR i = 1 TO n

INPUT a1(i)

INPUT a2(i)

INPUT a3(i)

NEXT i

FOR i = 1 TO n: a(i) = a1(i): NEXT i

GOSUB 2000

s1 = s

FOR i = 1 TO n: a(i) = a2(i): NEXT i

GOSUB 2000

s2 = s

FOR i = 1 TO n: a(i) = a3(i): NEXT i

GOSUB 2000

s3 = s

IF s1 > s2 THEN 700

IF s2 > s3 THEN 800

600 PRINT "максимальная сумма координат у вектора а3"

GOTO 900

700 IF s1 > s3 THEN 777

GOTO 600

777 PRINT " максимальная сумма координат у вектора а1"

GOTO 900

800 PRINT " максимальная сумма координат у вектора а2"

END

REM подпрограмма вычисления суммы координат

s = 0: FOR k = 1 TO n

s = s + a(k)

NEXT k

RETURN

11. Задана произвольная последовательность чисел x₁, x₂, ... , x_n. Преобразовать эту последовательность в неубывающую, которая помещается на место старой.