массивы Опции

[alic]

помогите решить
дан массивС[2n] нужно в нём найти 2 близких по значению числа и отправить их в массивы А[n] и B[n]
так продолжать до полного формирования массивов А и В

[mj]

вроде должно работать если заранее посчитать суммы и положить в последнюю ячейку каждого ряда

пусть a - масив, h - кол. эл. масива по X, без последнего, где сумма лежит, w - кол. эл. масива по Y и первый эл. = 0...

for z = 0 to w-2 do
  for x = z+1 to w-1 do
    if a[h, z]>a[h, x] then
      for v := 0 to h do
      begin
        t := a[v, z];
        a[v, z] := v[h, x]
        a[v, x] := t;
      end;