Решаем задачи Абрамян на Паскале. Matrix90

Matrix90. Дана квадратная матрица порядка $$M$$. Обнулить элементы матрицы, лежащие на побочной диагонали и ниже нее. Условный оператор не использовать.

Решение:

program Matrix90;
type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  M, i, j:Integer;

begin
 Write('M: ');
 Readln(M);

 for  j:=1 to M do
  begin
   writeln(j,': ');
   for i:=1 to M do
    begin
     Write(i,' : ');
     Read(a[i,j]);
    end;
  end;

 for j:=M downto 1 do
   for i:=1 to j do
     a[M-j+i,M-i+1]:=0


 for  j:=1 to M do
  begin
   for i:=1 to M do
    begin
     Write(' : ',a[i,j]);
    end;
   Writeln(' : ');
  end;
end.

program Matrix90;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

M, i, j:Integer;

begin

Write('M: ');

Readln(M);

for j:=1 to M do

begin

writeln(j,': ');

for i:=1 to M do

begin

Write(i,' : ');

Read(a[i,j]);

end;

for j:=M downto 1 do

for i:=1 to j do

a[M-j+i,M-i+1]:=0

for j:=1 to M do

begin

for i:=1 to M do

begin

Write(' : ',a[i,j]);

end;

Writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix90

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ