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

uses crt;

Var i,n,dem:integer;

     a: array[1..1000] of integer;

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

  if a[i] mod 2 = 0 then inc(dem);

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.