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.
