Заменить элементы главной и побочной диагонали нулями. - 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.

Объяснение кода листинга программы

  1. В первой части кода создается массив a размером n на n и заполняется случайными числами от 1 до n с помощью функции random(n).
  2. Выводится размер массива n и все его элементы в шестнадцатеричной системе счисления.
  3. Во второй части кода элементы главной и побочной диагонали массива a заменяются нулями.
  4. Выводится массив a с замененными нулями.

Оцени полезность:

14   голосов , оценка 3.786 из 5
Похожие ответы