Помогите решить. Программа на паскале с двумерным массивом.

[Okaboka]

Помогите, пожалуйста, решить данную задачу:
Дана матрица из n строк и столбцов. Получить массив x1,x2,..xn по правилу xi=1, если каждый элемент i-го столбца, кроме 1-го и последнего элементов меньше полусуммы двух соседних элементов, иначе xi=0. Нужно составить программу.

[BDA]

Что вызывает затруднения?

[Okaboka]

Затруднение вызывает само составление программы.

[Mad_Cat]

for j:=1 to n  do begin x[j]:=1;
for i:=2 to n-1 do 
if a[i,j] >= (a[i+1,j]/2+a[i-1,j]/2) then begin x[j]:=0;break;end;
end;

3,333 сообщение xD

[BDA]

Mad_Cat, только знак, наверное, не "<", а ">=". И непонятно, что ставить в x1 и xn.
ПС Гетовое количество сообщений

[Okaboka]

А как полностью программа будет выглядеть?

[Mad_Cat]

со знаком согласен, а вот по поводу x1 и xn

for j:=1 to n do begin x[j]:=1;

А как полностью программа будет выглядеть?

Контакты:

[BDA]

Mad_Cat, я имел ввиду, что по условию непонятно, что ставить (что ставится в Вашем коде - понятно).

[Okaboka]

В x1 или же в xn надо ставить 1 или 0 в зависимости от того, будет ли выполняться условие в столбиках данного массива n на n/

[Mad_Cat]

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