Nhập 1 mảng số nguyên gồm n phần tử
– In ra màn hình các phần tử lớn hơn X
-Đếm có bao nhiêu phần tử lớn hơn X đó
(X,n: số nguyên; X,n: nhập từ bàn phím)
Nhập 1 mảng số nguyên gồm n phần tử
– In ra màn hình các phần tử lớn hơn X
-Đếm có bao nhiêu phần tử lớn hơn X đó
(X,n: số nguyên; X,n: nhập từ bàn phím)
Program lon_hon_x;
uses crt;
var A:array[1..1000] of integer;
n,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[i]);
if A[i]>x then d:=d+1;
end;
if d=0 then write(‘Khong co so nao lon hon ‘,x)
else
begin
for i:=1 to n do
if A[i]>x then write(A[i],’ ‘);
writeln;
write(‘Co ‘,d,’ so lon hon ‘,x);
end;
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n,x,d: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (N);
write (‘nhap x: ‘); readln (x);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]):
if a[i]>x then d:=d+1;
end;
writeln (‘co ‘,d,’ chu so lon hon ‘,x);
write (‘cac so lon hon ‘,x,’ la: ‘);
for i:=1 to n do if a[i]>x then write (a[i],’ ‘);
readln;
end.