Viết chương trình nhập 3 số nguyên từ bàn phím rồi in ra màn hình theo thứ tự tăng dần, giảm dần

1 câu trả lời

program sksk;
uses crt;
var a : array[1..3] of integer;
i , temp, tem, j, h, k : integer;
begin
clrscr;
for i := 1 to 3 do
begin
write('nhap so nguyen thu ', i ,' : ');readln(a[i]);
end;
For i := 1 to 2 do
For j := i+1 to 3 do
If a[i] > a[j] Then
begin
temp := a[i];
a[i] := a[j];
a[j]:= temp;
end;
write('day sap xep theo thu tu tang dan la :' );
for i :=1 to 3 do write(a[i]:8 );
For h :=1 to 2 do
For k := h+1 to 3 do
If a[h] < a[k] Then
begin
tem := a[h];
a[h] := a[k];
a[k] := tem;
end;
writeln; writeln;
write('day sap xep theo thu tu giam dan la :');
for h  := 1 to 3 do write(a[h]:8);
end.

Câu hỏi trong lớp Xem thêm