Question

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!! 

Answer 1

program im_14424;
uses crt;
var A: array [1..99999] of integer;
i,n,dem : integer;
begin
clrscr;
dem:=0;
write('Nhap vao so phan tu: ',n);
readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu ',i,':');
readln(A[i]);
if (A[i] mod 2 = 0) then dem:=dem+1;
end;
write('So cac so chan la: ',dem);
readln(dem);
end.

Answer 2

uses crt;

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

i,n,dem:integer;

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);

writeln(dem);

readln;

end.