Question

viet chương trình nhap vào dãy số n số nguyên a1,a2,...an, và số x. in ra kết quả xem trong dãy n số đó có bao nhiêu số bằng x

Answer 1

Lời giải :

program hotrotinhoc ;

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

i,n,x,dem : integer ;

begin

write('Nhap gia tri cua x'); readln(x);

write('Nhap do dai cua day so n='); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

dem:=0;

for i:= 1 to n do

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

write('Trong day so n co tat ca ',dem,' so bang x');

readln

end.