Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phụng Đặng
Giúp mình câu này với ạ Viết chương trình nhập vào dãy số nguyền gồm N số. Nhập vào số cần tìm. Hãy cho biết có số cần tìm trong dãy số ban đầu hay không? Cảm ơn ạ
Minh Lệ
26 tháng 2 2021 lúc 20:09

Program Hoc24;

var a: array[1..32000] of integer;

d,i,n,x: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');

readln

end.

Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:22

uses crt;

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

n,i,x,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

kt:=0;

for i:=1 to n do 

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

if kt=0 then writeln(x,' khong co trong day')

else writeln(x,' co trong day');

readln;

end.


Các câu hỏi tương tự
Dandelion
Xem chi tiết
Nguyễn trần bảo trâm
Xem chi tiết
Nguyen Le
Xem chi tiết
Hoangf Thu
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Hwang Ah
Xem chi tiết
Phan Phước Quốc Thịnh
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Anh Nguyen
Xem chi tiết