Question

viết chương trình pascal, nhập vào dãy số nguyên ko có 100 phần tử. In dãy số đó ra màn hình cho biết trong dãy có bao nhiêu phần tử có giá trị chẵn và bao nhiêu phần tử có giá trị lẻ.

 

 

Answer 1

Var a:array[1..100] of integer;

i,d1,d2:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

End;

For i:=1 to 100 do

If a[i] mod 2 = 0 then d1:=d1+1

Else d2:=d2+1;

Writeln('So phan tu chan la ',d1);

Write('So phan tu le la ',d2);

Readln;

End.

Answer 2

uses crt;

var n,i,a[100],dem1,dem2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln(dem1,' ',dem2);

readln;

end.