Паскаль

  • Автор темы -
  • Дата начала

Гость
#1
помогите пожалуйтса найти причину по которой не работает задача
Код:
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

* so what *
18.05.2009
2 442
9
42
Kiev, Ukraine
#2
а что не работает?
И не задолбается ли пользователь после вывода каждой строчки результирующей матрицы нажимать Enter (там readln, может, проще сделать переход на новую строку с помощью writeln)?
А Вас такой штуке как const не учили?
Код:
const
n=3;
m=4;
Var
X : array [1..n, 1..m] of integer;
А это лишнее: