Четные столбцы таблицы заменить на вектор Х

[darm]

Здравствуйте) Помогите пожалуйста с решением задачи!
Четные столбцы таблицы заменить на вектор Х
паскаль

[Mad_Cat]

i:=2;
while i<=n do begin
for j:=1 to m do
a[i,j]:=x[j];
inc(i,2);
end;

[Arigato]

Подозреваю, что тут заменяются строки, а не столбцы.

[darm]

можно весь код)

[Вадим Мошев]

Сообщение от darm

можно весь код)

Вы разрешаете? Спасибо.

[darm]

это был вопрос

[Mad_Cat]

Подозреваю, что тут заменяются строки, а не столбцы.

правильно подозреваете)
для столбцов нужно поменять это

a[i,j]:=x[j];

на это

a[j,i]:=x[j];