необходимо подкоректировать....

[Андрю)(@]

Написать программу поиска суммы последовательных чисел, вводимых с клавиатуры, предшествующих первому введённому нулю. Указание: должен многократно выполняться оператор ввода. Контрольный пример: 1, 2, 3, -4, 5, -2, 0. Рзультат: 7.
пробовал сам сделать

Program zad2;
Uses Crt;
Var
sum,a: integer;
begin
ClrScr;
repeat
read(a);
inc(sum, a);
until a=0;
Writeln(sum);
end.

нужно чтобы когда начинается несоблюдение последовательности на '-2' суммирование прекращалось
помгите плиз исправить данную траблу

[capta1n]

То есть -4 считается в этом ряду как последовательное? если так, то счас я тебе код намаляю

[capta1n]

program posled;
label 1;
var
 a,b,d,sum : integer;
begin
  sum:=0;
  writeln ('Vvedite posledovatel''nie 4isla: ');
  readln (a);
  d:=a;
  if a=0 then goto 1;
  sum:=sum+a;
  repeat
    b:=abs(a);
    readln (a);
    if abs(a)-b<>d then break;
    sum:=sum+a
  until a=0;
  1: writeln ('Summa= ',sum);
  readln
end.

[Викдон]

вот еще:

var c,a,summa:integer;  {c-число, а-предшествующее число}
    flag:boolean; {True-если последовательнось соблюдается}
begin
 flag:=false;
 summa:=0;
 a:=0;
   while true do
      begin
        write('Введите число: ');
        readln(c);
          if c=0 then
            break;
          if a=0 then  {Если первое число}
            summa:=c
          else
            if (abs(c)=abs(a)+1) and (flag=false) then  {Последующие числа}
               summa:=summa+c
            else
             flag:=true;
         a:=c;
      end;

write('Сумма равна = ',summa);
readln;
end.

[capta1n]

Викдон - мне понравился алгоритм, а если шаг допустим не "1" а скажем "10" - то тут проблемка не сочти за наглость - просто интересно посоветоваться, пообщаться с умными людьми

[Викдон]

ну тут просто вместо (abs(c)=abs(a)+1) делаем (abs(c)=abs(a)+n) В данном случае n=10

[capta1n]

Согласен - можно тогда и код подправить, только в данном случае "n" - это шаг, который я так понял вам надо задавать

[Викдон]

да n шаг)) можно мой код и подправить, просто я подогнал его под конкретный случай), Вроде в задании шаг единица, как я понял)

[capta1n]

Все правильно, только меня учили создавать программу для "конечного" пользователя )) Понимаете о чем я )) Ну это так, просто к слову, на самом деле к конкретной задаче к вашей программе нет никаких претезий, просто у меня шаг задается первым вводом, а я вот подумал можно ведь шаг задать и просто как параметр - ну ладно, это так - полет фантазии

[Викдон]

да можно задать: (abs(c)=abs(a)+n) n задается в программе))