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

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

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

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

textual
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.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ