Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Duy

Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy

 

Dương Bảo Nguyên
3 tháng 4 2022 lúc 20:24

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 = 0 then 
            d := d + 1;
    end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

 


Các câu hỏi tương tự
Đỗ Duy
Xem chi tiết
ĐOÀN ĐỨC ANH
Xem chi tiết
Bé Kunz
Xem chi tiết
gió may
Xem chi tiết
Nguyễn Thị Linh
Xem chi tiết
Mai Ban
Xem chi tiết
Hoàng Thị Minh Nguyệt
Xem chi tiết
My meme
Xem chi tiết
Lam Nguyễn Xuân
Xem chi tiết