Имеется код:var a: array[1..15] of integer; i,k,l,z,b,c,qu:integer;

Как-то всё очень длинно. Хотелось бы увидеть постановку задачи.

В общем, есть переменная с элементом массива a[min] - малое число в массиве, нужно добавить write(min), но у меня не выходит, или дублируются значения (одна и та же позиция несколько раз). Делать пробовал через for, но та же ситуация

В коде просто солянка полная, ибо несколько решений здесь делается.

Напишите точную постановку задачи. Что нужно сделать.

Массив из 15 частей заполнен случайными числами в спектре [-20; 20]. Вывести все номера частей, на которых встречается малое значение

Const n=15;
var a: array[1..n] of integer;
i,k,l,c:integer;
min,max:byte;
begin
randomize;
for i:= 1 to n do
 begin
 a[i]:=random(-20,20);
 write(a[i]:4);
 end;
writeln;

l:=0; k:=0;
for i:= 1 to n do
 if a[i]lt;0 then l:=l+1 
 else if a[i]gt;0 then k:=k+1;
if lgt;k then writeln('а) Отрицательных чисел больше чем положительных')
 else if kgt;l then writeln('а) Положительных чисел больше чем отрицательных')
  else writeln('а) Отрицательных и положительных чисел идиентично');
writeln;
writeln('б) Поставить малый элемент на первое место и наибольший элемента массива на заключительное');
writeln;
min := 1; max := 1;
for i:=2 to n do begin
 if a[i] lt; a[min] then min := i;
 if a[i] gt; a[max] then max := i;
end;
c:=a[1]; a[1]:=a[min]; a[min]:=c;
c:=a[n]; a[n]:=a[max]; a[max]:=c;
for i:= 1 to n do write(a[i]:4);
writeln;
writeln; 
writeln('в) Номера частей с наименьшим значением:');
for i:= 1 to n do 
 if a[i]=a[1] then write(i,' '); // Малый элемент поставлен на первое место!
writeln; 
end.

Пример (для частей из спектра [-10; 10]):
   6  -6   6  -9  -9  -3  -7   9  -3   9   6  -8   7  -3   6
а) Отрицательных чисел больше чем положительных

б) Поставить малый элемент на 1-ое место и наибольший элемента массива на заключительнее

  -9  -6   6   6  -9  -3  -7   6  -3   9   6  -8   7  -3   9

в) Номера элементов с наименьшим значением:
1 5