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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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;