Viết chương trình nhập vào dãy sáu số nguyên. Đếm tất cả các số chẵn của dãy đó
VD: 1 5 7 2 9 4
Có hai số chẵn.
Ghi chính xác, nếu có thể gửi chương trình chạy thì tốt hơn
Cảm ơn mn rất nhiều.
Viết chương trình nhập vào dãy sáu số nguyên. Đếm tất cả các số chẵn của dãy đó VD: 1 5 7 2 9 4 Có hai số chẵn. Ghi chính xác, nếu có thể gửi chương
By Daisy
program dem_chan;
uses crt;
var A:array[1..6] of integer;
i,d:byte;
begin
clrscr;
d:=0;
for i:=1 to 6 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=0 then d:=d+1;
end;
write(‘Co ‘,d,’ so chan’);
readln;
end.
program day;
uses crt;
var n,i,d: integer;
Begin
clrscr;
for i:=1 to 6 do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(n);
if n mod 2=0 then d:=d+1;
end;
write(‘Co ‘,d,’ so chan’);
readln
End.