Kwwiker

Отбор 4.25

Aug 9th, 2020
106
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   k := 0;
  2.   for i := 1 to N do
  3.     if (a[i] mod 8 = a[i] mod 16) then
  4.       k := k + 1;
  5.   for i := 1 to N do
  6.   begin
  7.     if (a[i] mod 2 = 0) then
  8.       a[i] := k;
  9.     writeln(a[i]);
  10.   end;
RAW Paste Data