CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Задание начального значения максимума.
MAX = A(1)
K = 1
FOR I = 2 TO n
'Сравнение элементов массива для поиска наибольшего значения
IF A(i) > MAX THEN MAX = A(i): K = i
NEXT i
'Задание начального значения суммы
S1 = 0
S2 = 0
'Поиск значения суммы положительных элементов до наибольшего значения
FOR i = 1 TO K – 1
IF A(i) > 0 THEN S1 = S1 + A(i)
NEXT i
'Поиск значения суммы положительных элементов после наибольшего значения
FOR i = K +1 TO n
IF A(i) > 0 THEN S2 = S2 + A(i)
NEXT i
'Сравнение найденных сумм
IF S1 > S2 THEN
PRINT "до максимального значения сумма больше и равна " ; S1
ELSE
PRINT "после максимального значения сумма больше и равна" ; S2
END IF