uses crt;
var max,a,b,c: word;
begin
 clrscr;
  write ('nhap so thu nhat: ');  readln (a);
  write ('nhap so thu hai: ');  readln (b);
  write ('nhap so thu ba: ');  readln (c);
  max:=a;
  if max<=b then max:=b;
  if max<=c then max:=c;
  writeln;
  writeln ('so lon nhat la: ',max);
  writeln;
  write ('cac so sau khi sap xep giam dan la: ',max,' ');
  if (max>b) and (b>c) then
   write (b,' ',c);
  if (max>a) and (a>b) then
   write (a,' ',b);
  if (max>c) and (c>a) then
   write (c,' ',a);
 readln;
end.

xin 5*

xin câu trả lời hay nhất

xin 1 lời cảm ơn

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