дан массив целых чисел из n элементов заполненный случайным образом числами

пары примыкающих частей с разными знаками не существует, т.к. промежуток данных чисел в отрицательном спектре. (-100 -200)

можно разделить на пары их, если гарантируется чётное количество чисел

Var a: array [1..6] of integer;
i,max1,max2,sum: integer;
begin
Randomize;
for i:=1 to 6 do begin
a[i]:=Random (300)-100;
sum:=sum+a[i];
write(a[i]:4);
end;
for i:=1 to 5 do
if ((a[i]lt;0) and (a[i+1]gt;0)) or ((a[i+1]gt;0) and (a[i]lt;0)) then begin
max1:=i;
max2:=i+1;
end;
writeln();
Write('Индексы чисел из пары соседних частей с различными знаками: ',max1,max2:3);
end.
abc pascal