Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка - Turbo Pascal

Формулировка задачи:

Даны целые a1...... ai(i=i20) Получить новую последовательность выбросив из исходно все члены которые деляться на 2 без остатка.

Решение задачи: «Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка»

Листинг программы

program even;
 
var i, k, t: integer;
    a: array [1..20] of integer;
 
begin
  randomize;
  k := 0;
  for i := 1 to 20 do
    begin
      t := random(198) - 99;
      write(t:4);
      if t mod 2 = 0 then //not(odd(t)), (t and 1) = 0, odd(t xor 1)...
        begin
          k := k + 1;
          a[k] := t
        end
    end;
  writeln;
  for i := 1 to k do write(a[i]:4);
  readln
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal создается программа even, которая предназначена для получения новой последовательности чисел, исключая те, которые делятся на 2 без остатка. В начале программы объявляются переменные: i, k и t, которые будут использоваться для итерации по массиву и проверки делимости чисел на 2. Также объявляется массив a, который будет хранить полученную последовательность. Далее происходит инициализация переменной k значением 0. Затем происходит цикл for, который выполняется 20 раз. Внутри цикла генерируется случайное число t в диапазоне от 0 до 198 с помощью функции random(198) - 99. Затем происходит проверка условия t mod 2 = 0, что означает, что число t делится на 2 без остатка. Если это условие выполняется, то переменная k увеличивается на 1, и число t записывается в массив a с индексом k. После завершения внутреннего цикла for происходит вывод на экран всех чисел из массива a с помощью цикла for и функции write(t:4). Наконец, после ввода с клавиатуры происходит вывод на экран последней последовательности чисел из массива a с помощью цикла for и функции write(t:4). Таким образом, данный код позволяет получить новую последовательность чисел, исключая те, которые делятся на 2 без остатка.