Viết chương trình nhập vào dãy số nguyên gồm N số. Nhập số cần tìm. Hãy cho biết có số cần tìm trong dãy hay không? Giúp em với ạ. Em cảm ơn
1 câu trả lời
program kiemtra;
Uses crt;
var A:array[1..100] of integer;
n,i,k:integer;
kt:boolean;
begin
clrscr;
write('Nhap so luong n: '); readln(n);
for i:=1 to n do
begin
write('So thu ',i,': '); readln(A[i]);
end;
write('Nhap so can tim: '); readln(k);
for i:=1 to n do
if A[i]=k then
begin
kt:=true;
break;
end;
if kt=true then write('Co so can tim trong day')
else write('Khong co so can tim trong day');
readln;
end.
