Question

Viết chương trình Pascal, nhập vào một dãy số nguyên N phần tử, xuất radãy vừa nhập theo thứ tự tăng dần. Giá trị của N và các phần tử của dãy số đượcnhập từ tệp Cau4.Inp. Dữ liệu xuất ra trên tệp Cau4.Out. Ví dụ:

câu 4 input:

4  6 8 7 55   9 8 7 6 56   4 5 6 7 8 97   50 40 60 80 35 35 1010   20 12 0 3 45 15 60 38 90 70

 

 

câu 4 output:

4   5 6 7 85   5 6 7 8 96   4 5 6 7 8 97    10 35 35 40 50 60 8010    0 3 12 15 20 38 45 60 70 90

 

Answer 1

Answer 2

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.