Урок 11(Дорешанные задачи 8, 9, 10)

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

var a,i: integer;

begin
  while i < 3 do
    begin
      writeln('vvedite cislo');
      readln(a);
      if (a < 0) then
      begin
      writeln(a);
      i := i + 1;
      end;
    end;
end.

9)Пользователь вводит в числа последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.

Примечание: в одном витке цикла должен быть только 1 readln().

var a,b,c,i,d: integer;

begin
  i := 1;
  while (i <= 3) do
   begin
     writeln('vvedite cisla');
     readln(d);
     if (i = 1) then
     a := d
     else if (i = 2) then
     b := d
     else
     c := d;
     i := i + 1;
   end;
  writeln(a,b,c);
end.

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

var a,b,c,i,d: integer;

begin
  i := 1;
  while (i <= 3) do
   begin
      writeln('vvedite cislo');
      readln(d);
     if (d < 0) and (i = 1) then
      begin
        a := d;
        i := i + 1;
        d := 0;
      end;
     if (d < 0) and (i = 2) then
      begin
       b := d;
       i := i + 1;
       d := 0;
      end;
     if (d < 0) and (i = 3) then
      begin
       c := d;
       writeln(a + b + c);
       i := i + 1;
      end;
   end;
end.