Question

giúp em bài này với ạ 

Answer 1

uses crt;

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

n,i,k:integer;

kt:boolean;

begin

clrscr;

readln(n);

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

readln(k);

kt:=false;

for i:=1 to n do 

  if a[i]=k then

begin

kt:=true;

break;

end;

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

writeln;

if (kt=true) then writeln('Trong mang co ton tai phan tu co gia tri la K')

else writeln('Khong ton tai phan tu co gia tri la k');

readln;

end.