Урок номер 11. Вопрос по задаче 8.

Урок 11 (задача 8)
Небольшие трудности с созданием кода. Пока не понятно, как сохранить три отрицательных числа, не выходя из цикла, а когда конкретно данное количество чисел наберётся - сложить их и завершить программу.

var i, b, c, e: integer

begin
       i := 1;
       while (i <> e) do
          begin
            writeln('vvedite cislo');
            readln(i);
            if (i > 0) then
            begin
               writeln('vvedite cislo');
               readln(i)
            end
            else
            begin
                 b := i; 
                 c := b;
                writeln(i + b + c); 
                b := c;
             end
          end;
end.
vedro-compota's picture

вопроса тут не наблюдаем

_____________
матфак вгу и остальная классика =)