Cần giúp bài tập pascal

[nhoc_su98]

1)viết chương trình nhập 1 mảng số nguyên.In ra mảng đã sắp xếp giảm dần. Tim ước số chung cua mảng.
2)viết chương trình nhập 1 mảng số nguyên.In ra mảng đã sắp xếp tăng dần. Tìm bội số chung nhỏ nhất của mảng.
3)Cho trước 1 dãy số nguyên hãy tìm và in ra tất cả các số hạng:
a) Bằng 0
b)Dương
c)âm
d) in ra mãng đã sắp xếp tăng dần
4)cho trước một dãy số. HÃy tìm khoảng cách lớn nhất giũa 2 số hạng kề nhau của dãy. In ra mảng đã sắp xếp tăng dần.
5)Tìm giá trị nhỏ nhất của dãy và đổi nó về vị trí đầu tiên. In ra mảng đã sắp xếp giảm dần.
...........cảm ơn..

 

[dailuong]

Lâu rồi mình không code trên pascal nên cũng không nhớ rõ cú pháp pascal lắm. Mình đưa ra thuật toán, bạn có thể tự code. Có gì thắc mắc thì có thể post trên topic này luôn nha.
1. Thuật toán sắp xếp nhỏ dần:

For i := 1 to nEle do
For j := i + 1 to nEle do
If a[j] > a[j] Then
Begin
Temp := a;
a := a[j];
a[j] := Temp;
End;​

2. Thuật toán sắp xếp tăng dần:

For i := 1 to nEle do
For j := i + 1 to nEle do
If a[j] < a[j] Then
Begin
Temp := a;
a := a[j];
a[j] := Temp;
End;​

3. Ước chung lớn nhất giữa 2 số:

while x<>y do if x>y then x:=x-y else y:=y-x;ucln:=x;

​

4. Bội chung nhỏ nhất giữa 2 số

bcnn:=(x*y) div ucln(x,y);

Tìm UCLN và BCNN của dãy số bằng cách tìm lần lượt của từng số trong dãy.

 

[dailuong]

Bài 3 thì duyệt lần lượt từng phần tử của mảng.
a.

If(a == 0)writeln(' ',a);

b.

If(a > 0)writeln(' ',a);

c.

If(a < 0)writeln(' ',a);

Bài 4:

KC := 0;
for i:= 1 to nEle -1 do
if abs(a - a[i + 1]) > KC
KC := abs(a - a[i + 1]);

 

[nhoc_su98]

cam on mj pan nhju lem!!!