Viết ct nhập từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương đưa kết quả ra màn hình số lượng số lẻ , số lượng số chẳn trong dãy
Viết ct nhập từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương đưa kết quả ra màn hình số lượng số lẻ , số lượng số chẳn trong dãy
program soluong;
var A:array[1..100] of integer;
n,i,sl:integer;
begin
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
writeln(‘Nhap gia tri tung phan tu cua day’);
sl:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
if A[i] mod 2=1 then sl:=sl+1;
end;
write(‘So luong so le la: ‘,sl);
write(‘So luong so chan la: ‘,n-sl); {so chan=n – so le}
readln
end.
uses crt;
var n,i,d1,d2:byte;
a:array[1..255] of word;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
d1:=0; d2:=0;
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]=’);
readln(a[i]);
if a[i] mod 2 =0 then inc(d1)
else inc(d2);
end;
write(‘Co ‘,d1,’ so chan va ‘,d2,’ so le trong day so tren.’);
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.