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.
