Question

nhập 1 mảng số nguyên gồm n phần tử (5<n<15)

a)Xuất xác phần tử trong mảng ra màn hình.

b)tìm kiếm phần tử có giá trị k trong mảng (k được nhập từ bàn phím). Nếu có thì thông báo: Trong mảng có phần tử có giá trị K (nếu không thì ngược lại)

Answer 1

uses crt;

var i,n,k:integer;

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

kt:boolean;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

readln(k);

kt:=false;

for i:=1 to n do 

  if a[i]=k then kt:=true;

if (kt=true) then write('Co k trong mang')

else writeln('Khong co k trong mang');

readln;

end.