Bài 11: Kiểu mảng

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

Viết chương trình nhập vào mảng một chiều à gồm n phân tử là số nguyên (1<N<=100). Cho biết trong mảng có bao nhiêu phần tử có giá trị nhỏ nhất?

Nguyễn Lê Phước Thịnh
31 tháng 1 2021 lúc 10:17

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

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

writeln('So phan tu co gia tri nho nhat la: ',dem);

readln;

end.


Các câu hỏi tương tự
Thuý Vy
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Võ Thu Hằng
Xem chi tiết
Trần Cương
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
hihi
Xem chi tiết
Lee Jihoon
Xem chi tiết
Khánh Mỹ
Xem chi tiết