lập trình tạo ngẫu nhiên một dãy không quá 500 số nguyên, một số có giá trị tuyệt đối không qua 400. hỏi trong dãy có bao nhiêu số nguyên giá trị nhỏ nhất.

Program NN;
Uses crt;
Var A: array[1..500] of longint;
    n,i,min,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        min:=maxlongint;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i]<min then min:=A[i];
        End;
        d:=0;
        For i:=1 to n do
                If A[i]=min then inc(d);
        Write(d);
        Readln
End.

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.