Kwwiker

Отбор 3.25

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