Mời các bác chỉ giùm em mấy bài tập pascal

[power99]

Em mới học pascal thôi, còn nhiều bài ko giải được, mong các bác giúp đỡ
1)nhập vào chương trình vào 1 mảng số nguyên, sau đó liệt kê các số dương trong mảng rồi in ra màn hình
2)viết chương trình nhập vào 1 mảng 2 chiều, gồm các số nguyên, sau đó xuất ra màn hình các số lẻ
3)viết chương trình nhập 2 số, sau đó xuất ra màn hình số lớn nhất và số nhỏ nhât,
a)sử dụng thao tác hàm function
b)sử dụng thao tác procedure
4)viết chương trình nhập vào 1 mảng với một dãy số, sau đó xuất ra màn hình sao cho các dãy
a)theo thứ tự tăng dần
b)theo thứ tự giảm dần
=>xin các bác làm nhanh giùm em với, em sắp kiểm tra môn này rùi!!!!!!!
=> xin cám ơn(nhớ giải dùm em càng ngắn càng tốt)

[PKMinh]

Bài 1 của bạn mình làm như sau:

Program bt;
var a:array [1..1000] of longint;
i,n:word;
begin
write('nhap so phan tu cua mang: ');
readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']: ');
readln(a[i]);
end;
write('cac phan tu duong la: ');
for i:=1 to n do
if a[i]>0 then write(a[i],' ');
readln;
end.

Bài 2:

Program bai2;
var a:array [1..10,1..10] of longint;
i,j,m,n:byte;
begin
write('nhap m,n: ');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
begin
write('nhap phan tu a[',i,',',j,']: ');
readln(a[i,j]);
end;
for i:=1 to m do
for j:=1 to n do
if odd(a[i,j]) then write(a[i,j],' ');
readln;
end.

Còn bài 3 thì bạn chỉ cần sử dụng lệnh if ... then ... else thôi
If a>b then
begin
solon:=a;
sobe:=b;
end
else
if b>a then
begin
solon:=b;
sobe:=a;
end
else write(' a = b');


Còn bài 4 thì bạn hãy tham khảo các thuật toán sắp xếp mảng, có rất nhiều thuật toán như selection sort, bubble, quicksort,....

[power99]

cám ơn bác pkminh rất nhiều