Урок 15. Задача №4. Решение.

Урок 15. Задача №4.

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

type
  MyArr = array[1..3] of integer;

procedure ShowArr(otherArr: MyArr);
var j: integer;
begin
  for j := 1 to length(otherArr) do
    writeln(otherArr[j]);
end;

var i, numb: integer;
  arr: MyArr;
begin
  i := 1;
  while(i <= length(arr)) do
  begin
    writeln('Enter integer: ');
    readln(numb);
    if(numb < 0) and (numb mod 2 = -1) then
    begin
      arr[i] := numb;
      i += 1;
    end;
  end;
  writeln();
  ShowArr(arr);

  readln(); // Удержание консоль
end.// Завершение программы