Question

Viết chương trình nhập vào mảng n phần tử (n số nguyên dương nhập từ bàn phím). Nhập vào phần tử a bất kì từ bàn phím, đếm xem có bao nhiêu phân tử lớn hơn a, nhỏ hơn và bằng a.

CHỈ GẤP MỌI NGƯỜI OIIIII!!!!

Answer 1

program hotrotinhoc;

var a: array[1..32000] of integer;

d,d1,a1,i,n: integer;

begin

write('a='); readln(a1);

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

for i:=1 to n do

begin

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

end;

d:=0; d1:=0;

for i:=1 to n do

begin

if a[i]>a1 then inc(d);

if a[i]<a1 then inc(d1);

end;

writeln('Co ',d,' phan tu lon hon ',a);

write('Co ',d1,' phan tu be hon ',a);

readln

end.