Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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;