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

@mashka4190 · Регистрация: 02.12.2013

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

Pascal

const
  n=6;
var
  a: array[1..n,1..n] of integer;
  i,j: integer;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
  for i:=1 to n do
    for j:=n+1-i to n do
      a[i,j]:=0;
  writeln('Преобразованная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
 
end.

Добавлено через 1 минуту

Сообщение от mashka4190

for i:=1 to n do
* * for j:=n+1-i to n do
* * * a[i,j]:=0;

как изменить,чтобы нулями заменялись элементы только побочной диагонали.

@ermolay · 19.06.2014, 00:30

Сообщение от mashka4190

как изменить,чтобы нулями заменялись элементы только побочной диагонали

замените вот это:

Pascal

1
2
3

  for i:=1 to n do
    for j:=n+1-i to n do
      a[i,j]:=0;

на это:

Pascal

1 2	for i:=1 to n do a[i,n-i+1]:=0;

	19.06.2014, 00:30

Опции темы