• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

Паскаль

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

Guest

помогите пожалуйтса найти причину по которой не работает задача
Код:
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) и записать нули в ту скобку и столбец, где он находится.
 
H

hosm

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!