Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное)

program zadacha;vara: array[1..10] of integer;i,max,n: integer;beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;writeln();writeln('max=',max);writeln('n=',n);end.Понимаю как максимальное,а как минимальное нееет((((

так же,только знак другой,меньше

ar i,min: Integer;mas:array[1..10] of Integer ;beginmin:=mas[1];Randomize();for i:=1 to 10 dobeginmas[i]:=Random(20);write(' ',mas[i]);if(mas[i]end;WriteLn();writeln('minimal ',min);end.

vot

Спасибо))

судя по логике только 1-минимальный,уточни задание