Question

Giúp mình câu này với ạ Viết chương trình nhập vào dãy số nguyền gồm N số. Nhập vào số cần tìm. Hãy cho biết có số cần tìm trong dãy số ban đầu hay không? Cảm ơn ạ

Answer 1

Program Hoc24;

var a: array[1..32000] of integer;

d,i,n,x: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');

readln

end.

Answer 2

uses crt;

var a:array[1..100]of integer;

n,i,x,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

kt:=0;

for i:=1 to n do 

  if a[i]=x then kt:=1;

if kt=0 then writeln(x,' khong co trong day')

else writeln(x,' co trong day');

readln;

end.