Задача 10 Урок 11

Задача 10 Урок 11:

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

var a, negative1, negative2, negative3: integer;

begin
  a:=1;
  while (a<>0) do
  begin
    writeln(' vvedite celoe chislo i nagmi enter: ');
    readln(a);
      if (a<0) and ((a mod 2)=-1) then
      begin
        negative3:=negative2;
        negative2:=negative1;
        negative1:=a;

      if (negative3<0) and (negative2<0)
        and (negative1<0) then
        break;
      end;

  end;

  write('otvet: ', negative1 + negative2 + negative3);
  readln();
end. 

КОНСУЛЬТАНТ:

 vvedite celoe chislo i nagmi enter:
2
 vvedite celoe chislo i nagmi enter:
-3
 vvedite celoe chislo i nagmi enter:
5
 vvedite celoe chislo i nagmi enter:
-7
 vvedite celoe chislo i nagmi enter:
-9
otvet: -19