Ðề tài: Nhờ anh chị giúp đỡ bài pascal

Giải giúp em đề bài tập này nhé! Em gái của em hiện đang học lớp 11 nhờ em chỉ giúp đề này nhưng em chưa bao giờ học qua chương trình pascal này cả. Xin cảm ơn anh/chị rất nhiều.
Đề: Viết chương trình cho phép nhập vào số phần tử và giá trị cho các phần tử của mảng 1 chiều và đếm xem có bao nhiêu số chẳn trong mảng.

View more random threads:

• so sánh bộ nhớ trong và bộ nhớ ngoài
• Mọi người chỉ mình cách làm với
• BitDefender
• Lấy thông tin cá nhân của số điện thoại mạng viettel!!!
• Mọi giúp liti với
• các kí tự đặc biệt trong toán học là ko có vay làm sao...
• Giải đáp cho mình câu hỏi nay với
• ghi đĩa bằng nero7 xin được giúp đỡ
• [HOT] Ai biết cách tạo chữ chạy trên hội nhóm zingme...
• Giúp tớ về key Tuneup 2011!!!! :((

Nguồn: http://diendankienthuc.net.

Mô tả: Ở đây tạm coi đề yêu cầu nhập vào n phần tử

Var A:array[1..100] of integer;
i,n,dem:integer;
Begin
Write('Nhap n:');Readln(n);
For i:=1 to n do
begin Write('Nhap phan tu:');Readln(A[i]);
end;
dem:=0;
For i:=1 to n do If A[i] mod 2 =0 then dem:=dem+1;
Write('So so chan dem dc la:',dem);
Readln
End. Nguồn: http://diendankienthuc.net.

Cảm ơn emtrongmattoi nhiều lắm! Nguồn: http://diendankienthuc.net.