Вычислить в массиве сумму элементов от первого отрицательного и до конца

const

N = 200; / / массив из 200 чисел, поскольку размерность не задана

var

mas: array [1 ... N] of integer;

s, i, ind: integer;

begin

s : = 0;

ind : = 0

for i : = 1 to N do

begin

if mas[i]<0 then ind : = 1;

if ind = 1 then s : = s + mas[i];

end;

end;