Bai tap Mang 1 chieu

Mang
Mang mot chieu: Mang mot chieu
Bài 1 - a: Hãy tìm hiểu và chạy thử chương trình thực hiện thuật toán sắp xếp dãy số nguyên bằng thuật toán tráo đổi với các giá trị khác nhau của n dưới đây. Chuong trinh:
Uses CRT; Const nmax=250; Type arrint=array[1..nmax] of integer; Var n, i, j, t: integer; A:arrint; Begin Clrscr; Randomize; Write(‘nhap n=’); Readln(n); For i:=1 to n do A[i]:=random(300) - random(300); For i:=1 to n do write(A[i]:5); Writeln; For j:=n downto 2 do For i:=1 to i - 1 do If A[i] >A[i 1] then Begin t:=A[i]; A[i]:=A[i 1]; A[i 1]:=t; End; Writeln(‘day so sau khi sap xep’); For i:=1 to n do write(A[i]:7); Readln End.