Nguyễn Trần Gia Linh
Hỏi từ APP VIETJACK
Nhập 1 mảng số nguyên và một số nguyên k. Kiểm tra xem k có trong mảng hay ko
Quảng cáo
2 câu trả lời 277
program TimKiemTrongMang;
var mang: array[1..100] of integer;
n, k, i: integer;
timThay: boolean;
begin write('Nhap so phan tu cua mang: '); readln(n);
// Nhập mảng
for i := 1 to n do begin
write('Nhap phan tu thu ', i, ': ');
readln(mang[i]);
end;
// Nhập số nguyên k
write('Nhap so nguyen k: '); readln(k);
// Kiểm tra k có trong mảng hay không
timThay := false;
for i := 1 to n do
begin
if mang[i] = k then begin
timThay := true;
break;
end;
end;
// In kết quả
if timThay then
writeln('So nguyen k co trong mang')
else writeln('So nguyen k khong co trong mang');
readln;
end.
Chúc bạn thành công!
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45513
-
Hỏi từ APP VIETJACK28408
Gửi báo cáo thành công!
