Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Quang Đạt

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

Nguyên Hưng Trần
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.


Các câu hỏi tương tự
HOÀNG ĐẠI PHÚC
Xem chi tiết
Nguyễn Quang Đạt
Xem chi tiết
Eliette
Xem chi tiết
Đại Trương xuân
Xem chi tiết
Võ Phan Xuân Trung
Xem chi tiết
Trang
Xem chi tiết
Nguyễn Lưu Khánh Hằng
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết
Tali
Xem chi tiết