Pascal giup voi may huynh!!

[kenny]

Pascal giúp với mấy huynh!

Viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và 1 dãy số gồm n số nguyên A1,...An. Các số Acó giá trị tuyệt đối không lớn hơn 1000. Tính và đưa ra màng hình tổng giá trị các số chẳn trong bảng.

Giúp dùm nha. Thi HK I đó, Thanks

 

[ButBi]

Viết chương trình nhập từ bàn phím số nguyên dương N(N<=100) và 1 dãy số gồm n số nguyên A1,...An. Các số Acó giá trị tuyệt đối không lớn hơn 1000. Tính và đưa ra màng hình tổng giá trị các số chẳn trong bảng.
Giúp dùm nha. Thi HK I đó, Thanks

* Khai báo:
- n: byte
- a: mảng 1 chiều
* Bắt đầu:
- Cho biết dãy số có bao nhiêu số
- Nhập lần lượt các số A
- Nếu ABS(a)>1000 thì báo "Ban phai nhap so co gia tri tuyet doi nho hon 1000"
- sum:=0
- Từ a[1] đến a[n] thực hiện Nếu a[1] chia 2 dư 0 thì sum:=sum+a
- Ghi ra "Cac so chan trong day la", i chạy từ 1 đến n, write (a:3)
- Ghi ra "Tong cua chung la", sum.
* Kết thúc.

 

[kenny]

ghj cụ thể giúp luôn nha, cảm ơn nhiều