Viết chương trình nhập số nguyên dương n (n<100) và dãy số nguyên A gồm n phần tử. Cho biết trong dãy A có bao nhiêu số chẵn bao nhiêu số lẽ
2 câu trả lời
program Min;
uses crt;
var n,i,dle,dch:integer;
A:array [1..100] of integer;
begin
clrscr;
write('Nhap n (n<300): '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
dle:=0; dch:=0;
for i:=1 to n do if A[i] mod 2 = 0 then inc(dch) else inc(dle);
writelnl('');
writeln('Co ',dch,' so chan');
writeln('Co ',dle,' so le');
readln
end.
:D
Program TH4;
Uses Crt;
Var a,b,c,d,e:longint;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');readln(a);
b:=0;c:=0;
For d:=1 to a do
Begin
Write('Nhap so thu ',d,' cua day: ');readln(e);
If e mod 2=0 then b:=b+1 else c:=c+1;
End;
Writeln('So luong so chan xuat hien trong day la: ',b);
Writeln('So luong so le xuat hien trong day la: ',c);
readln;
End.
Đây nè bạn
^-^
Chạy thử OK cả rồi