дан целочисленный массив из 40 элементов

Ответ от Никита Матросов[гуру]
const n=40;
var a,b: array[1..n] of integer;
j,min, min1, c, num1, num2,i: integer;
begin
for i:=1 to n do begin
a:=-50+random(100);
Write(a,' ');
end;
for i:=1 to n do b:=a;
for i:=n-1 downto 1 do
for j:=1 to i do
if a[j] > a[j+1] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end;
min1:=a[1];
min:=a[2];
for i:=1 to n do
if min1=b then num1:=i;
for i:=1 to n do
if ((min=b) and (i<>num1)) then num2:=i;
writeln;
Write(num1,' ',num2);
end.
здесь плохо отображается, поэтому нормальный вариант скинул в ЛС