var a:array[1..100] of integer;
I,j,n,max,imax,imin,b:integer;
begin
write ('N:');
readln (n);
imax:=1;
imin:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if a[i]>a[imax] then
begin
imax:=i;
end;
if a[i]< a[imin] then
begin
imin:=i;
end;
end;
writeln;
writeln('MAX[',imax,']:=',a[imax]);
writeln('MIN[',imin,']:=',a[imin]);
b:= a[imax];
a[imax]:= a[imin];
a[imin]:=b;
for i:=1 to n do
begin
write(a[i]:3);
end;
end.
English
Russian