Заменить элементы главной и побочной диагонали нулями. - Pascal ABC
Формулировка задачи:
Дана квадратная матрица заменить в ней элементы главной и побочной диагонали нулями ! Помогите с кодом не въеду никак в массивы
Решение задачи: «Заменить элементы главной и побочной диагонали нулями.»
textual
Листинг программы
const n = 8; var a: array[1..n, 1..n] of integer; i, j: integer; begin for i := 1 to n do begin for j := 1 to n do begin a[i, j] := random(n) + 1; write(a[i, j]:4); end; writeln; end; writeln; for i := 1 to n do begin a[i, n - i + 1] := 0; a[i, i] := 0; end; for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln; end; end.
Объяснение кода листинга программы
- В первой части кода создается массив a размером n на n и заполняется случайными числами от 1 до n с помощью функции random(n).
- Выводится размер массива n и все его элементы в шестнадцатеричной системе счисления.
- Во второй части кода элементы главной и побочной диагонали массива a заменяются нулями.
- Выводится массив a с замененными нулями.