Advertisement
CyberN00b

6.4

Oct 23rd, 2020
233
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.38 KB | None | 0 0
  1. program prog;
  2. var
  3.     arr : array[1..8] of longint;
  4.     i, count, min, max, d : longint;
  5. begin
  6.     read(arr[1]);
  7.     min := arr[1];
  8.     for i := 2 to 8 do begin
  9.         read(arr[i]);
  10.         if (arr[i] < min) then
  11.             min := arr[i];
  12.     end;
  13.     d := 20 - min;
  14.     for i := 1 to 8 do
  15.         arr[i] := arr[i] + d;
  16.     for i := 1 to 8 do
  17.         write(arr[i], ' ');
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement