Программа

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