Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Tuệ Lâm
16 tháng 2 2022 lúc 9:13

undefined

Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:18

3:

uses crt;

var x,i,n,kt:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n);

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

readln(x);

kt:=0;

for i:=1 to n do 

  if a[i]=x then kt:=1;

if kt=0 then writeln('khong co')

else writeln('co');

readln;

end.


Các câu hỏi tương tự
Phạm ngọc anh
Xem chi tiết
Na Lê
Xem chi tiết
Nhược Doanh EXO-L
Xem chi tiết
dffhb
Xem chi tiết
nguyễn an phát
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Dung Nguyễn
Xem chi tiết
Bich Ngoc
Xem chi tiết
Hoàng Thành
Xem chi tiết
Ken Kaneki
Xem chi tiết