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

Question

Информатика

Досифей

2 февраля, 13:24

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

+4

Ответы (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;