Паскаль

Guest · 16.06.2010

помогите пожалуйтса найти причину по которой не работает задача

Код:

Var
i, j, n, m,str,stb, min : integer;
X : array [1..3, 1..4] of integer;
Begin
i := 1;
n:=3; m:=4; str:=1; stb:=1;
for i:=1 to n do
for j:=1 to m do readln (X [i,j]);
min:= X[1,1];
for i:=1 to n do
for j:=1 to m do
if x[i,j]<min then begin min:=x[i,j];
str:=i;
stb:=j;
end;

writeln ('otstup');
i:=0; j:=0;
for i:=1 to n do X[i,stb]:= 0;
for j:=1 to m do X[str,j]:=0;
for i:=1 to n do begin
for j:=1 to m do write (X[i,j]:5);
readln;
end;
readln
End

Найти наименьший элемент матрицы Х(3х4) и записать нули в ту скобку и столбец, где он находится.

hosm · 16.06.2010

а что не работает?
И не задолбается ли пользователь после вывода каждой строчки результирующей матрицы нажимать Enter (там readln, может, проще сделать переход на новую строку с помощью writeln)?
А Вас такой штуке как const не учили?

Код:

const
n=3;
m=4;
Var
X : array [1..n, 1..m] of integer;

А это лишнее:

i:=0; j:=0;