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

[Воробушек]

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

помогите пожалуйста

[Stilet]

Ввод матрицы написать сможешь?

[Воробушек]

Program pr 1;
uses crt;
const n=3;m=3;
var a:array[1..n,1..m] of integer;
i,j,P,min,inomer:integer;
begin writeln('введи матрицу');
for j:= 1 to m do
for i:=1 to n do readln(a[i,j]);
writeln('исходная матрица:');
for j:= 1 to m do begin
for i:=1 to n do write(a[i,j]);
writeln;
end;
for j:=1 to m do begin
P:=1;min:=a[i,1];
inomer:=1;
for i:=1 to n do begin
if a[i,j]<0 then
P:=P*a[i,j]
if a[i,j]>min then begin
min:=a[i,j];
inomer:=j;end;
end;
if P<10 then
a[i,n]:=a[j,inomer];
end;
writeln('измененная матрица');
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
end.

я вот сделала, но в некоторых местах есть ошибки.только где я не знаю, точнее не могу найти.

[Stilet]

Ясненько. Вот мое видение:

Program pr 1;
uses crt;
const n=3;m=3;
var a:array[1..n+2,1..m] of integer;
i,j,P,min,inomer:integer;
begin writeln('введи матрицу');
for i:= 1 to n-2 do begin
 for j:=1 to m do begin
   readln(a[i,j]); 
{Находим сразу минимумы и произведения из столбцов и запоминаем их}
   if j=1 then a[n,j]=a[i,j] else   a[n,j]:=a[n,j]*a[i,j];
   if(a[n-1,j]<a[i,j]) then a[n-1,j]:=a[i,j] ;
 end;
end;

writeln('исходная матрица:');
for i:= 1 to n-2 do begin for j:=1 to m do write(a[i,j]);writeln;end;

{Если произведения более 10 производим замену}
for i:=1 to m do if a[n,i]>10 then a[n-2,j]:=a[n-1,i];

writeln('измененная матрица');
for i:= 1 to n-2 do begin for j:=1 to m do write(a[i,j]);writeln;end;

readln;
end.

Идея надеюсь понятна?
Писал не проверяя.

[Воробушек]

идея понятна.спасибо большое=))
for i:= 1 to n-2 do begin только вот здесь почему n-2, а не просто n???

[Stilet]

Да. Потому что я добавил к матрице еще две строки. предпоследняя для произведений столбцов, последняя для минимумов.

[Воробушек]

понятненько=)