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

Question

Информатика

Нелли

5 сентября, 09:58

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

+2

Ответы (1)

Знаете ответ на вопрос?

Васильич · 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;

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

end;

end;