Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program prog;
- var
- arr : array[1..8] of longint;
- i, count, min, max, d : longint;
- begin
- read(arr[1]);
- min := arr[1];
- for i := 2 to 8 do begin
- read(arr[i]);
- if (arr[i] < min) then
- min := arr[i];
- end;
- d := 20 - min;
- for i := 1 to 8 do
- arr[i] := arr[i] + d;
- for i := 1 to 8 do
- write(arr[i], ' ');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement