Cách 1:
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min,t:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Max: ',max);
writeln('Min: ',min);
for i:=1 to n do
begin
t:=max;
max:=min;
min:=t;
end;
writeln('Max sau khi hoan vi: ',max);
writeln('Min sau khi hoan vi: ',min);
readln;
end.
Cách 2:
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Max: ',max);
writeln('Min: ',min);
writeln('Max sau khi hoan vi: ',min);
writeln('Min sau khi hoan vi: ',max);
readln;
end.
*Nó khác nhau chỗ là cách 1 phải làm bước hoán vị còn cách hai là đảo chỗ thôi, ghi là max mà giá trị in ra là min, ghi min mà giá trị in ra là max.
