ПОМОГИТЕ Пожалуйста

[Waia]

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

[puporev]

Создай вручную небольшую матрицу, чтобы в ней был один столбец с указанным условием. Затем идешь по столбцам (счетчик j)
sr:=0;
for j:=1 to n do
if a[1,j]>a[n,j] then
begin
for i(счетчик по строкам) :=1 to n do
sr:=sr+a[i,j]/n; /нашли ср.арифметическое
jsr:=j;//запоминаем номер столбца
end;
Затем все просто. По всей матрице if j<>jsr вычитаем из элементов значение sr.

[Waia]

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