program bt;
uses crt;
var
i,max,tam,j:integer;
A:array[1..100] of integer;
begin
for i:=1 to 3 do readln(A[i]);
max:=A[1];
for i:=2 to 3 do if A[i]>max then max:=A[i];
writeln(max);
for i:=1 to 2 do
for j:=i+1 to 3 do if A[i]<A[j] then
begin
tam:=A[i]; A[i]:=A[j]; A[j]:=tam;
end;
for i:=1 to 3 do write(A[i],' ');
readln;
end.
Mình làm như này, sau đó bạn có thể áp dụng vào các bài khác có nhiều số hơn (n số chẳng hạn), bạn cũng làm tương tự
Chúc bạn học tốt