uses crt;
var i,size,num,summa:integer;
a:array [1..10000] of integer;
label 1;
begin;
clrscr;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(a[i]);
end;
FOR i := 1 TO size do
begin
IF a[i] = 0 THEN
begin
num := i; GOTO 1;
end;
end;
1:
FOR i := num + 1 TO size do
begin
IF a[i] < 0 THEN summa := summa + a[i];
end;
writeln('Сумма отрицательных элементов после первого 0 равна ', summa);
end.