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

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.

Bình luận (0)

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