В двумерном массиве 10х20 целочисленных элементов из диапазона значений -20 +20 поменять местами столбцы симметрично центральной оси массива 1-20, 2-19 и т.д.
for j:=1 to 10 do {перебираем столбцы для замены} for i:=1 to 10 do {производим замену стобца j и 21-j} begin temp:=a[i,j]; a[i,j]:=a[i,21-j]; a[i,21-j]:=temp; end;