Question

Viết chương trình nhập vào dãy số , đém xem có bao nhiêu số lẽ trong dãy số vừa nhập.

Mọi người giúp em với ạ !!

Answer 1

Program Tin;

Uses crt;

Var i,n,dem:Integer;

      a:array[1..10000] of integer;

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu cua day:');

For i:= 1 to n do 

Begin

Write('So thu ',i,': ');

readln(a[i]);

If a[i] mod 2 = 1 then dem:=dem+1;

End;

Writeln('Day co ',dem,' so le');

readln;

End.