Bài 11: Kiểu mảng

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

Viết chương trình nhập vào số nguyên dương N và dãy gồm N số nguyên A1,A2,...,AN và số nguyên k.Đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng k

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

uses crt;

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

i,n,dem,k: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);

dem:=0;

for i:=1 to n do 

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

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.


Các câu hỏi tương tự
Dương Thành Long
Xem chi tiết
Sarah Lilia
Xem chi tiết
Anh Thư
Xem chi tiết
Thanh sang
Xem chi tiết
Leoumax
Xem chi tiết
Phong Vũ
Xem chi tiết
Nguyễn Lê
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Hoàng Trần Thanh Hà _THP...
Xem chi tiết