Question

Cho dãy A gồm N số nguyên A1,A2...An. Có bao nhiêu phần tử có giá trị nhỏ nhất trong dãy A. Đưa kết quả ra màn hình. Ai giúp tôi với, tôi xin cảm ơn

Answer 1

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 trong day la: ',dem);

readln;

end.