Program Hotboy;

Uses crt;

Var A :array[1..100] of integer;

s,n,k,i : longint;

Begin

Clrscr;

Write('nhap so n');

For i:=1 to n do

Write('A[',i,]');

Readln(A[i]);

Write('nhap so k:');

Readln(k);

For i:=1 to n do

If (A[i] =k) then 

Write(k,'nam trong mang A');

Else

Write(k,'khong namnam trong mang A');

Readln

End.

program ct;

uses crt;

var i,n,k,d:integer;

A:array[1..100] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

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

d:=0;

for i:=1 to n do

if A[i]=k then d:=d+1;

if d=0 then writeln(k,'khong nam trong day') else writeln(k,'xuat hien ',d:2,' lan trong day');

readln

end.