Question

Cho dãy A và các số nguyên dương a1,a2,....,an. Tìm giá trị của k trong dãy A. Nếu có k xuất hiện bao nhiêu lần?

Answer 1

bài này dễ ẹt à

uses crt;

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

i,n,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{-------------------xuat-day----------------------}

for i:=1 to n do

write(a[i]:4);

{------------xu-ly----------------------------------}

writeln;

write('nhap k='); readln(k);

dem:=0;

for i:=1 to n do

if a[i]=k then inc(dem);

if dem=0 then writeln('khong co so ',k,' trong day')

else writeln('so ',k,' xuat hien ',dem,' lan trong day');

readln;

end.