Kiem tra day so X1 co trong day so X ko?
Bac nao biet thi lam ho em...
Kiem tra day so X1 co trong day so X ko?
Bac nao biet thi lam ho em...
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 !!
Được sửa bởi strainvh lúc 19:21 ngày 06-06-2011 Reason: Bổ sung bài viết
Bookmarks