Question

Cho một dãy số gồm n số thực và số thực x. Viết chương trình nhập n số thực đó và đếm xem có bao nhiêu số trong dãy không lớn hơn x ( Sử dụng dãy số)

Answer 1

uses crt;

var n,i,dem:longint;

a:array[1..100] of real;

x:real;

begin

clrscr;

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

writeln('nhap day so thuc:');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

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

dem:=0;

for i:=1 to n do

if a[i]<=x then dem:=dem+1;

if dem=0 then write('trong day khong co so khong lon hon ',x:2:2)

else write('co ',dem,' so trong day khong lon hon ',x:2:2);

readln;

end.

Answer 2

program bai1;

var a:array[1..100] of real;

x:real;

i,n,d:longint;

begin

write('n= ');readln(n);

readln('x= ');readln(x);

for i:=1 to n do

begin

write('a[',i,']= ');readln(a[i]);

end;

d:=0;

for i:=1 to n do

if a[i]<=x then d:=d+1;

write(d);

readln

end.

Answer 3

Answer 4

var n,i,d:longint;
a:array[1..100] of real;
x:real;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
write('x=');readln(x);
d:=0;
for i:=1 to n do
if a[i]<=x then d:=d+1;
writeln(' Co ',d,' so trong day khong lon hon ',x:0:0);
readln;
end.

Answer 5

program bai1;

var a:array[1..100] of longint;

i,n,d:longint;

x:real;

procedure nhap;

var i:longint;

begin

readln(n);readln(x);

for i:=1 to n do

begin

write('A[',i,']= ');

readln(a[i]);

end;

end;

begin

nhap;

d:=0;

for i:=1 to n do

if x<=a[i] then d:=d+1;

write(d);

readln

end.