Advertisement
Guest User

Untitled

a guest
Aug 22nd, 2019
116
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. var
  2. a:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
  3. i,n,min,max:integer;
  4. begin
  5. write(a,' ');
  6. min:=a[1];
  7. for i:=1 to n do
  8. begin
  9. if a[i]<min then min:=a[i];
  10. end;
  11. max:=a[1];
  12. for i:=1 to n do
  13. begin
  14. if a[i]>max then max:=a[i];
  15. end;
  16. for i:=1 to n do
  17. begin
  18. if a[i]=max then a[i]:=min-1;
  19. if a[i]=min then a[i]:=max;
  20. if a[i]=min-1 then a[i]:=a[i]+1;
  21. end;
  22. for i:=1 to n do
  23. writeln(a[i])
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement