Bài 9: Cấu trúc rẽ nhánh

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

viết chương trình nhập vao từ bàn phím số nguyên dương M,N(N<=100) và dãy số A1,A2,... Đếm xem có bn phần tử trong mảng= số M và hiển thị kết quả trên màn hình

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

uses crt;

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

m,n,dem,i:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

dem:=0;

for i:=1 to n do 

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

writeln('So phan tu bang ',m,' la: ',dem);

readln;

end.


Các câu hỏi tương tự
Khánh Linh
Xem chi tiết
Thảo Linhh
Xem chi tiết
PHẠM PHUONG HOÀNG NGHI
Xem chi tiết
Machunsu
Xem chi tiết
Tiến Văn Nguyễn
Xem chi tiết
03. Phạm Nguyễn Phương A...
Xem chi tiết
ngô phương anh
Xem chi tiết
Hàn Nhật Hạ
Xem chi tiết
Tâm Phạm
Xem chi tiết