Bài 55:

program so_duong;

uses crt;

var  n,i,d,a:integer;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     if a>0 then d:=d+1;

              end;

       write('Co ',d,' so duong');

       readln;

end.

Bài 56:

program tong_le;

uses crt;

var n,a,i,t:integer;

begin

       clrscr;

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

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     if a mod 2=1 then d:=d+1;

              end;

       write('Tong cac phan tu le la: ',t);

       readln;

end.

Bài 57:

program uoc_so;

uses crt;

var n,a,i,x,d:integer;

begin

       clrscr;

       write('Nhap x: ');  readln(x);

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

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a)

                     if x mod a=0 then d:=d+1;

              end;

       write('Co ',d,' so la uoc cua ',x);

       readln;

end.

55)

uses crt;
var i,n,d:longint; a:array[1..1000000] of longint;
begin
clrscr;
   write('N=');readln(n);
   for i:=1 to n do read(a[i]);
   d:=0;
   for i:=1 to n do if a[i] mod 2=0 then inc(d);
   writeln('Co ',d,' phan tu la so duong trong day vua nhap');
readln
end.

56)

uses crt;
var i,n,s,a:longint;
begin
clrscr;
   write('N=');readln(n);
   for i:=1 to n do begin read(a); if a mod 2=1 then inc(s,a); end;
   writeln('Tong cac so le: ',s);
readln
end.

57)

uses crt;
var i,n,x,d,a:longint;
begin
clrscr;
   write('N,x=');readln(n,x);
   for i:=1 to n do 
      begin
         read(a);
         if x mod a=0 then inc(d);
      end;
   writeln('Co ',d,' phan tu la uoc cua x trong day vua nhap');
readln
end.

58)

Giống bài 55.