Pascal giup voi may huynh!!

**kenny** · 12-05-2009, 04:03 PM

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ố A[i]có 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

View more random threads:

.

**ButBi** · 12-05-2009, 04:19 PM

Nguyên văn bởi kenny

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ố A[i]có 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ố (n)
- Nhập lần lượt các số A[i]
- Nếu ABS(a[i])>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[i]
- Ghi ra "Cac so chan trong day la", i chạy từ 1 đến n, write (a[i]:3)
- Ghi ra "Tong cua chung la", sum.
* Kết thúc. .