Урок 15 Задача 6

Урок 15 Задача 6

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

Решение:

program u15z06;
var i,n:integer;
  a: array [1..3] of integer;
begin
  for i:=1 to 3 do
  begin
    repeat
      writeln('vvedite chislo - ');
      readln(n);
      a[i]:=n
    until (n mod 2 = -1);
  end;
  for i:=low(a) to high(a) do
    write(a[i],' ');
  readln;
end.

Консоль:

vvedite chislo -
1
vvedite chislo -
0
vvedite chislo -
3
vvedite chislo -
-2
vvedite chislo -
-3
vvedite chislo -
-1
vvedite chislo -
5
vvedite chislo -
0
vvedite chislo -
-7
-3 -1 -7