Ai biết làm dùm em với

[huyhoang_1226]

Kiem tra day so X1 co trong day so X ko?

Bac nao biet thi lam ho em...

[strainvh]

uses crt;
type day=array[1..100] of integer;
var X:day;n,n1:integer;
function kiemtra(X:day;n:integer):boolean;
var t:boolean;i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']= ');readln(X[i]);
end;
t:=false;

begin
if (n1=X[i]) and (n1>1) then
begin
t:=true;
writeln('so ' ,n1, ' co trong day X ') ;
end
else
begin
writeln('so ' ,n1, ' ko co trong day X ');
readln;
end;
kiemtra:=t;
end;
end;

begin
clrscr;
write('nhap n: ');readln(n);
write('nhap n1: ');readln(n1);
kiemtra(X,n);
readln;
end.

[=========> Bổ sung bài viết <=========]

bài này trục trặc 1 tí chịu khó sửa nghe !!