Паскаль

Тема в разделе "Pascal and Delphi", создана пользователем -, 16 июн 2010.

  1. Гость

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

    hosm * so what *

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

Поделиться этой страницей