матрица в паскале

Ответ от Jurii[гуру]
Программирование — это искусство! В нём всё должно быть красиво и понятно: 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.