| Код |
uses crt;
const n=10;
var a:array [1..n] of integer;
i,max,min,posmax,posmin,t:integer;
begin
clrscr;
writeln('write numbers'):
for i:=1 to n do begin
read(a[i]);
end;
max:=a[1]; min:=a[1];
posmax:=1; posmin:=1;
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
posmax:=i;
end;
if a[i]<min then begin
min:=a[i];
posmin:=i;
end;
end;
writeln(posmax,' ',posmin);
for i:=posmin to ((posmax-posmin) div 2)+posmin do begin
t:=a[i]; a[i]:=a[posmax-(i-posmin)]; a[posmax-(i-posmin)]:=t;
end;
for i:=1 to n do begin
write(a[i],' ');
end;
readln;
readln;
end.
|
|
