1) cho dãy số A=( a1,a2,…an) nhập thêm giá trị K và kiểm tra K có trong dãy số hay không
0 bình luận về “1) cho dãy số A=( a1,a2,…an) nhập thêm giá trị K và kiểm tra K có trong dãy số hay không”
uses crt; var i,k,n,t:longint; a:array[1..10000]of longint; begin clrscr; write(‘n,k= ‘);readln(n,k); for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); if a[i]=k then t:=1; end; if t=1 then writeln(‘Co’) else writeln(‘Khong’); readln end.
uses crt;
var i,k,n,t:longint; a:array[1..10000]of longint;
begin
clrscr;
write(‘n,k= ‘);readln(n,k);
for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); if a[i]=k then t:=1; end;
if t=1 then writeln(‘Co’) else writeln(‘Khong’);
readln
end.