обнуление отрицательных столбцов

[prelest']

помогите пожалуйста исправить прогу, не правильно работает.
задача: Дана матрица размера M х N. После последнего столбца, содержащего только отрицательные элементы, вставить столбец из нулей. Если требуемых столбцов нет, то вывести матрицу без изменений.
программный код:
const
n=5;
m=6;
var
A:array [1..m,1..n+1] of integer;
i,j,k:integer;
begin
randomize;
j:=n;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j],' ');
end;
writeln;
end;

for i := 1 to m do
If (a[i,j] < 0) then
inc(k);
If (k=m) then
for i:= 1 to m do
a[i,j+1]:=0;
writeln(' ');
end.

[Alex11223]

Если random(20), то у вас не будет отрицательных элементов.
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении. Пожалуйста.

for i := 1 to m do
If (a[i,j] < 0) then
inc(k);
If (k=m) then
for i:= 1 to m do
a[i,j+1]:=0;

Что-то запутался тут. Вроде на верном пути, но как минимум вы проверяете только 1 столбец с j, которая осталась от прошлого цикла (т.е. последний). И после каждого столбца надо к обнулять (и, наверно, запоминать в другую переменную номер столбца если к=кол-ву элементов в столбце)

[prelest']

пожалуйста напишите полностью программу исправленную

[prelest']

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

вот мне сказали что нужно сделать, только вот в программе как этопоказать

[Alex11223]

k:=0;
for i:=1 to n do 
begin
    if k=m then lastcol:=i;
    k:=0;
    for j:=1 to m do 
       if a[i,j]<0 then
          inc(k);
end;

Как-то так проверка.

[prelest']

lastcol это что?

[prelest']

не получается короче ничего(

[prelest']

полностью код мне нужен, пожалуйста

[Alex11223]

Переменная, в которой "запоминается" номер последнего столбца, состоящего из отрицательных элементов. Ошибся немного там, кстати, вроде исправил.

A:array [1..m,1..n+1] of integer;

Тут +1 зачем?

[prelest']

напиши полностью программу пожалуйста я уже сама запуталась
а что не надо +1?