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

Question

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

Answer 1

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;<br>if ind = 1 then s := s + mas[i];
end;
end;

Comments

От души спасибо мужик)))