Автор Николай Алексейченко задал вопрос в разделе Другие языки и технологии
паскаль матрица и получил лучший ответ
Ответ от 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.
матрица перезагрузка
что такое 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; вы явно не обнулите побочную диаг