bài 1 : tăng dần

Bước 1: Nhập n là số phần tử trong dãy

Bước 2: i <- 1 to n

Bước 3: nhập a[i]

bươc 4

i ← 1 to n-1

j ← i+1 to n 

Nếu A[i]>A[j] thì

tang:= A[i]

A[i]:=A[j]

A[j]:=tang

Bước 4:

i ←1 to n

bước 5

in ra kết quả và kết thúc thuật toán

bài 2  giảm dần

Bước 1: Nhập số phần tử trong dãy

Bước 2: i <- 1 to n

Bước 3: nhập a[i]

bươc 4

 j<- N downto 2 

i <- 1 to  j-1 

Nếu A[i]<A[i+1] thì

giam := A[i]

A[i]:=A[i+1]

A[i+1]:=giam

Bước 4:

i <- 1 to n

bước 5

in ra kết quả và kết thúc thuật toán

1)program thututangdan;

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;N,i,j,Tam:Integer;

Begin

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;

Writeln('Ket qua sau khi sap xep:');

For i:=1 To N Do

Write(A[i]:5);

Readln;

End.