Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
- i,n,min,max:integer;
- begin
- write(a,' ');
- min:=a[1];
- for i:=1 to n do
- begin
- if a[i]<min then min:=a[i];
- end;
- max:=a[1];
- for i:=1 to n do
- begin
- if a[i]>max then max:=a[i];
- end;
- for i:=1 to n do
- begin
- if a[i]=max then a[i]:=min-1;
- if a[i]=min then a[i]:=max;
- if a[i]=min-1 then a[i]:=a[i]+1;
- end;
- for i:=1 to n do
- writeln(a[i])
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement