Giúp mình câu này với ạ!!! Tạo mảng A gồm n phần tử (n<=100) số nguyên. Viết chương trình đếm và in ra có bao nhiêu phần tử là số nguyên dương lẻ trong mảng A
2 câu trả lời
Program dem_so;
Uses crt;
Var A : array [1..100] of integer;
d,i,n: integer;
Begin
Write ('nhap n=');
Readln (n);
For i:=1 to n do
Begin
Write ('nhap phan tu thu ',i,'=');
Readln (A[i]);
end;
d:=0;
For i:=1 to n do
If (A[i]>0) and (A[i] mod 2=1) then
d:=d+1;
Writeln ('Co ',d,' phan tu la so nguyen duong le trong mang');
Readln
End.
program oken;
uses crt;
var a: array [1..100] of integer;
dem,i,n: integer;
begin
clrscr;
write('nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: ');
readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=1) then
dem:=dem+1;
writeln('so phan tu nguyen duong le trong mang: ',dem);
readln;
end.
