uses crt;
var A : array [1 .. 500] of integer;
i, N, Min, d : integer;
begin
clrscr; randomize;
write('Nhap so phan tu : '); readln(N);
for i := 1 to N do
A[i] := random(400) - random(400);
Min := A[1];
for i := 1 to N do
if A[i] = Min then d := d + 1;
write('Co ', d ,' so gia tri nho nhat');
readln
end.