Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Anh Thư

 Viết chương trình nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không, nếu có thì đưa ra màn hình vị trí của phần tử đầu tiên và đếm xem có bao nhiêu phần tử bằng k hoặc thông báo không có.

Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:16

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  if a[i]=k then 

begin

writeln(i);

break;

end;

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

if dem>0 then writeln('Co ',dem,' phan tu bang ',k)

else writeln('Khong co phan tu nao bang ',k);

readln;

end.


Các câu hỏi tương tự
Thảo Nguyên Ngô
Xem chi tiết
Nguyễn Lê
Xem chi tiết
uyen hihi
Xem chi tiết
Dương Thành Long
Xem chi tiết
Trần Cương
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết
Anh Thư
Xem chi tiết
fyujg
Xem chi tiết
Anh Lê duy
Xem chi tiết