Nhập một giá trị K vào xem K có trong mảng hay không? 28/07/2021 Bởi Samantha Nhập một giá trị K vào xem K có trong mảng hay không?
var a:array[1..250] of integer; k: integer; i, n: byte; Begin Write(‘n = ‘); readln(n); Write(‘k = ‘); readln(k); For i:=1 to n do Begin Write(‘a[‘, i, ‘] = ‘); readln(a[i]); If a[i]=k then Begin Write(‘K co trong mang’); Readln; Exit; End; End; Write(‘K khong co trong mang’); Readln End. Bình luận
var a:array[1..250] of integer;
k: integer;
i, n: byte;
Begin
Write(‘n = ‘); readln(n);
Write(‘k = ‘); readln(k);
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If a[i]=k then
Begin
Write(‘K co trong mang’);
Readln; Exit;
End;
End;
Write(‘K khong co trong mang’);
Readln
End.