Viết chương trình nhập hai số nguyên a bỏ từ bàn phím khác nhau và in ra màn hình theo thứ tự Không giảm dần

Question

Viết chương trình nhập hai số nguyên a bỏ từ bàn phím khác nhau và in ra màn hình theo thứ  tự Không giảm dần

maingoc · Answer

program b1;

uses crt;

var a,b,k:integer;

begin

clrscr;

writeln(‘nhap so a’);

readln(a);

writeln(‘nhap so b’);

readln(b);

tg:=a;

a:=b;

b:=tg;

writeln(‘gia tri cua a la’,a);

writeln(‘gia tri cua b la’, b);

readln;

end.

mocmien · Answer

program khonggiam;

uses crt;

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

begin

clrscr;

for i:=1 to 2 do

begin

write(‘ Nhap so thu ‘,i,’ : ‘); readln(A[i]);

end;

if A[i]>A[2] then writeln(A[1],’ ‘,A[2])

else writeln(A[2],’ ‘,A[1]);

readln;

end.

{bài nay mình sử dụng mảng, nếu chưa học thì đọc 2 lần a,lần 1 cho b=a r so sánh a với b)