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

@timber1 · Регистрация: 01.12.2013

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

Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы размером 7x7.Не заменяя элементы 7-ой строки и 7-го столбца.

@ermolay · 01.12.2013, 09:41

Pascal

const
  n=7;
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-1 do
    for j:=n-i+1 to n-1 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;
  readln;
end.

@timber1 0 / 0 / 0 Регистрация: 01.12.2013 Сообщений: 9
		1
	Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы 01.12.2013, 09:35. Показов 1517. Ответов 1 Метки нет (Все метки) Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы размером 7x7.Не заменяя элементы 7-ой строки и 7-го столбца. 0

	01.12.2013, 09:41

Опции темы

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

Решение