Nhập một giá trị K vào xem K có trong mảng hay không?
1 câu trả lời
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.
