uses crt;
var
i,n,k, max, min, imax, imin:integer;
a:array[1..99] of integer;
begin;
clrscr;
randomize;
write('n=');
readln(n);
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i]:3);
end;
max:=a[1];
min:=a[1];
imax:=1;
imin:=1;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i]<min then
begin
min:=a[i];
imin:=i;
end;
end;
k:=a[imin];
a[imin]:=a[imax];
a[imax]:=k;
writeln;
writeln;
write('max=',max,' min=',min);
writeln;
write('konechni massiv');
writeln;
for i:=1 to n do
write (a[i]:3);
readkey;
end.