Формирование массива + сортировка.

[mata]

Есть массив A состоящий из натуральных чисел ( к примеру: 4, 6, 11, 15). Нужно сформировать массив B, который состоял бы из произведений элементов массива A на самих себя и произведений каждого элемента на элементы, предшествующие ему:

4*4 = 16
6*4 = 24
6*6 = 36
11*4 = 44
11*6 = 66
11*11 = 121
и т.д.

Получившийся массив B отсортировать по возрастанию.

С сортировкой проблем возникнуть не должно, а вот придумать циклический алгоритм для формирования B не получается. Буду рад любой помощи.

[unbanned]

k:=1;
for i:=1 to n do
for j:=1 to n do begin
b[k]:=a[i]*a[j];
inc(k);
end;

попробуй так

[Johnson]

for I:=0 to length(A)-1 do begin
	SetLength(B,length(B)+1);
	B[high(B)]:=A[I]*A[I];
	if I>0 then begin
		SetLength(B,length(B)+1);
		B[high(B)]:=A[I]*A[I-1];
	end;	
end;

Отсортируете сами...

[mata]

unbanned, Johnson, спасибо!
Топик можно закрывать.