câu 1:

uses crt;
var N:array [1..1000] of integer;
x,i,a,s: integer; 
begin
clrscr;
write('nhap x: '); readln(x);
write('nhap so luong phan tu: '); readln(a);
for i:=1 to a do
begin
write('nhap so thu ',i,': '); readln(n[i]);
if n[i]>=x then s:=s+1;
end;
write('cac so co gia tri bang x la: ');
for i:=1 to a do
if n[i]=x then write(n[i]:4);
writeln;
write('cac phan tu nho hon x la: ');
for i:=1 to a do
if n[i]<x then write(n[i]:4);
writeln;
write('co ',s,' phan tu co gia tri lon hon hoac bang x');
readln;
end.

bài 2:

(hiển thị dưới dạng số thập phân)

uses crt;
var i,n: integer; 
s: real;
begin
clrscr;
write('nhap n: '); readln(n);
s:=1; i:=2;
while i<=n do
begin
s:=s+1/((i-1)*i);

i:=i+1;
end;
write('tong tren voi n = ',n,' la: ',s:3:1);
readln;
end.

(hiển thị dưới dạng phân số)

uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('nhap n: '); readln(n);
s:=1; i:=2;
while i<=n do
begin
s:=s+1/((i-1)*i);
i:=i+1;
end;
write('tong tren voi n = ',n,' la: ',trunc(s*n),'/',n);
readln;
end.

cho mik mạng phép sửa lại b2 vì mik thấy đằng trước có quy luật là n giảm 1 nên mik cho n-1 ạ!!!

bn xem hình