program lonnhat_va_sapxep;

var a: array[1..1000] of integer;

inj, max,tg:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

max:= a[1];

for i:=2 to n do

begin

if a[i]> max then max:=a[i];

end;

writeln('so lon nhat max);

for i:=1 to n do

for j:=1 to n do

if a[i]<a[j]

then

begin

tg:=a[i]:

a[i]:= a[i]:

a[i]= tg;

end;

for i:=1 to n do

write(a[i]:3);

readln

end.

* sửa

program lonnhat_va_sapxep;
var a: array[1..10] of integer;
i,n,j, max,tg:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
max:= a[1];
for i:=2 to n do
begin
if a[i]> max then max:=a[i];
end;
writeln('so lon nhat:', max);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j]
then
begin
tg:=a[i];
a[i]:= a[j];
a[j]:= tg;
end;
for i:=1 to n do
write(a[i]:3);
readln
end.

program lonnhat _va_sapxep;

var a: array[1..1000] of integer;

inj, max,tg:integer;       `->` i,n,j,max,tg: integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

begin

if a[i]> max then

max:=a[i];

end;

writeln('so lon nhat max);     `->`writeln('so lon nhat max: ',max);

for i:=1 to n do

for j:=1 to n do

if a[i]<a[j] then

begin

tg:=a[i]:    `->` tg:=a[i]; 

a[i]:= a[i]:    `->` a[i]:=a[j];

a[i]= tg;    `->` a[j]:=tg;

end;

for i:=1 to n do

write(a[i]:3);

readln

end.