Viết chương trình Pascal

Question

Viết chương trình nhập n số nguyên

a) In các số đó ra màn hình

b) Đếm có bao nhiêu số chẵn trong dãy, in các số đó ra màn hình

 

c) Đếm có bao nhiêu số lẻ trong dãy, in các số đó ra màn hình

Answer 1

program bt;

uses crt;

var i,n,a,b :integer;

begin

clrscr;

writeln('Nhap cac so trong day: '); readln(n);

for i:=1 to n do writeln(i);

a:=0;

for i:=1 to n do begin

if (i mod 2) = 0 then a:=a+1; end;

write('So cac chan trong day so: ',a);

b:=0

for i:=1 to n do begin

if (i mod 2) <> 0 then b:=b+1; end;

write('So cac so le trong le trong day so: ',b);

readln

end.

Answer 2

program bai1;

var          A:array[1..100] of integer;i,n.chan,le:integer;

begin

              write('nhap n:');readln(n);

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

              write(' Cac so chan trong day: ');

              chan:=0;   le:=0;

              for i:=1 to n do if A[i] mod 2=0 then

              begin

                  chan:=chan+1;   write(A[i],' ');

              end;   writeln;

              writeln(' So cac so chan la: ',chan);

              write(' Cac so le trong day: ');

              for i:=1 to n do if A[i] mod 20 then

              begin

                 le:=le+1;   write(A[i],' ');

              end;   writeln;

              writeln(' So cac so le la: ',le);

              readln;

end.