Question

    Nhập ba số a,b,c, in ra màn hình theo thứ tự tăng dần.

Answer 1

uses crt;

var a,b,c,tam:real;

x:array[1..3]of real;

i,j:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

x[1]:=a;

x[2]:=b;

x[3]:=c;

for i:=1 to 3-1 do 

  for j:=i+1 to 3 do 

  if x[i]>x[j] then 

begin

tam:=x[i];

x[i]:=x[j];

x[j]:=tam;

end;

for i:=1 to 3 do write(x[i]:4);

readln;

end.