Двуммерные массивы

[Дешук Елена]

Дана матрица М*Н.перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц.Если требуемых столбцов нет, то вывести матрицу без изменений.

[.Phoenix]

перед первым столбцом, содержащим только положительные элементы, вставить столбец из единиц.Если требуемых столбцов нет, то вывести матрицу без изменений.

Никак не пойму условие

[Дешук Елена]

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

[Lemo]

Ну и что тут не понятного:
ещем стлобец в котором выполняеться вышеизложенное условие в 1-м посте, 1-й столбец означает, то что если мы найдем его, то дальше можно не искать такие же столбцы!

[.Phoenix]

var a: array [1..10,1..10] of integer;
i,j,n,otr: integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if (j=1) and (a[i,j]<0) then otr:=otr+1;
if otr=0 then
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j], ' ');writeln;
end;
end
else
begin
for i:=1 to n do
for j:=0 to n do
if j=0 then a[i,j]:=1;

for i:=1 to n do
begin
for j:=0 to n do
write(a[i,j], ' ');writeln;
end;
end;
writeln(otr);
readln;
end.

Сделал как ты понимаешь.