1.
Kt:=0;
For i:=1 to n do if a[i]=k then
Begin
kt:=1;
Break;
End;
If kt=1 then write('yes') else write('no');
2.dem:=0;
for i:=1 to n do if a[i]=x then dem:=dem+1;//dem bien kq
3.dem:=0;
for i:=1 to n do if (a[i]>0)and(a[i] mod 5=0) then dem:=dem+1;//dem :bien kq
Nhập xuất tự làm