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

Question

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

Гость

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

Accepted Answer

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.