Заменить элементы главной и побочной диагонали нулями.

@oblovoin02 · Регистрация: 04.12.2016

Студворк — интернет-сервис помощи студентам

Дана квадратная матрица заменить в ней элементы главной и побочной диагонали нулями ! Помогите с кодом не въеду никак в массивы

@ZX Spectrum-128 · 12.04.2018, 09:33

Pascal

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.

@oblovoin02 0 / 0 / 0 Регистрация: 04.12.2016 Сообщений: 37
		1
	Заменить элементы главной и побочной диагонали нулями. 12.04.2018, 09:29. Показов 8120. Ответов 1 Метки нет (Все метки) Дана квадратная матрица заменить в ней элементы главной и побочной диагонали нулями ! Помогите с кодом не въеду никак в массивы 0

	12.04.2018, 09:33

Опции темы

Заменить элементы главной и побочной диагонали нулями.

Решение