giúp em với mai em kiểm tra 1 tiết tin học rồi

[nguyenngochan298]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1.Viết chương trình in ra màn hình các phần tử chẳn trong mảng A với n số nguyên
2.Viết chương trình tính tổng các phần tử chẳn trong mảng
3.Viết chương trình đếm có bao nhiêu phần tử chia hết cho 3.

 

[lanhuong.98]

1.Viết chương trình in ra màn hình các phần tử chẳn trong mảng A với n số nguyên
2.Viết chương trình tính tổng các phần tử chẳn trong mảng
3.Viết chương trình đếm có bao nhiêu phần tử chia hết cho 3.

Tớ chưa học phần tử chắn cậu ạ! ^^
3.
Program abcxyzt;
Uses Crt;
Var i, n,A: integer;
Begin
Write('Nhap so phan tu cua day: '); Readln(i);
Write('Nhap gia tri cac phan tu cua day: '); Readln(Ai);
n:= 0;
i:= 1;
If $A_{i}$ mod 3 = 0 then n:= n + 1
else i:= i + 1;
Write('Co ',n,' phan tu chia het cho 3');
Readln
End.