ND

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!!!!

NT
26 tháng 7 2021 lúc 20:42

Program Tin_hoc;

uses crt;

var n,i,dem:integer;

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

Begin

clrscr;

readln(n);

dem:=0;

for i:= 1 to n do 

  Begin

  readln(a[i]);

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

  end;

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

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
HP
Xem chi tiết
ND
Xem chi tiết
H24
Xem chi tiết
DX
Xem chi tiết
VT
Xem chi tiết
H24
Xem chi tiết
NH
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết