в массиве А 20 есть хотя бы одно отрицательное значение элемента.вычислить сумму значений...

Question

в массиве А 20 есть хотя бы одно отрицательное значение элемента.вычислить сумму значений элементов массива после 1ого отрицательного значения.

Answer 1

var

  flag : boolean;

  i, s : integer;

  a : array [1..20] of integer;

begin

  for i := 1 to 20 do read (a[i]);

  s := 0; flag := false;

  for i := 1 to 20 do

    if flag then s := s + a[i]

    else if a[i] < 0 then flag := true;

  writeln (s);

end.