обработка массивов

[alena999]

Напишите пожалуйста программу для решения следующей задачи.
В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждом столбце первый и последний отрицательные элементы.

[Stilet]

Всю прогу целиком?? Даже не можешь написать ввод массива?

[alena999]

нет, только процедуру обмена)

[Stilet]

Держи:

procedure e(i:integer;var mass:тип твоей матрицы);
var q,w,l:integer;
begin
 for q:=Low(mass) to High(mass) do if mass[q][i]<0 then break;
 for w:=High(mass) downto Low(mass) do if mass[w][i]<0 then break;
 l:=mass[q][i]; mass[q][i]:=mass[w][i];mass[w][i]:=l
end;

i - номер передаваемой колонки