Паскаль матрица

01.01.2001

паскаль матрица

  • Программирование — это искусство!
    В нём всё должно быть красиво и понятно:

    var
      A : array [1..5, 1..5] of Integer;
      Row, Col : Byte;
    begin

      { ----------Ввод массива ----------}
      WriteLn('Введите элементы целочисленного массива 5х5 :');
      for Row := 1 to 5 do
        for Col := 1 to 5 do
          begin
            Write('A[', Row, ',', Col, '] = '); ReadLn(A[Row, Col]);
          end;

      { ----------Вывод массива на экран ----------}
      WriteLn('Введённый массив: ');
      for Row := 1 to 5 do
        begin
          for Col := 1 to 5 do
            Write(A[Row, Col]:7);
          WriteLn;
        end;

      { ----------Обнуление элементов побочной диагонали ----------}
      for Row := 1 to 5 do
        begin
          Col := 6 - Row;
          A[Row, Col] := 0;
        end;

      { ----------Вывод изменённого массива на экран ----------}
      WriteLn('Все элементы побочной диагонали обнулены: ');
      for Row := 1 to 5 do
        begin
          for Col := 1 to 5 do
            Write(A[Row, Col]:7);
          WriteLn;
        end;
    end.

  • матрица перезагрузка
  • что такое mas?
  • 1. Код - на pastebin.com
    2. Опиши, почему ты считаешь, что там есть ошибка.
  • Во-первых, неправильный ввод матрицы. Должно быть так
    for i:=1 to 5 do
    for j:=1 to 5 do
    readln(a[i.j]);
    Даже эндов и бегинов не надо

    Во-вторых, такими строчками :
    a[i,i]:=0;
    a[1,j]:=0;
    вы явно не обнулите побочную диагональ, по моему мнению.
    Я б обнули так:
    for ...do for ...doif j=5-i+1 then a[i,j]:=0;
    Остался вывод измененной матрицы.

Вас заинтересует