cho sồ nguyên dương N và dãy số A(a1,a2...aN). Đếm các số có giá trị chẵn. ( viết thuật toán

Bước 1: Nhập n và mảng A[1..n];

             Gán dem=0

Bước 2: Cho i chạy từ 1 đến n

             Nếu A[i] chia hết cho 2 (A[i] mod 2=0) thì dem=dem+1

Bước 3: Xuất ra đếm

----------------

Bài làm: 

Program GTC;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,dem: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        dem:=0;
        For i:=1 to n do
                If A[i] mod 2 = 0 then inc(dem);
        Write('Co ',dem,' so chan');
        Readln
End.

input số nguyên dươg n và dãy số 

Output số số có giá trị chẵn

thuật toán

bước 1: nhập n

bước 2: nhập dãy số a1.a2...

bước 3: nếu a[i] mod 2=0 thì s:=s+1

bước 4 : in ra kq ra màn hình và kết thúc thuật toán

mình viết chương trình luôn nha

program hotboy;

uses crt;

var a:array[1..100] of integer;

n,i,s: integer;

begin

clrscr;

s:=0;

write('nhap so nguyen duong n');

readln(n);

for i:=1 to n do

begin

write('a[',i,']');

readln(a[i]);

end;

for i:=1 to n do

if a[i] mod 2 =0 then s:=s+1;

write('co so so co gia tri chan la',s);

readln

end.