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

Matrix82. Дана квадратная матрица $$A$$ порядка $$M$$. Найти сумму элементов каждой ее диагонали, параллельной главной (начиная с одноэлементной диагонали $$A_{1,M}$$).

Решение:

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

var
  a:matrix;
  Sum,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:=1 to M-1 do
  begin
   Sum:=0;
   for i:=1 to j do
    begin
     Sum:=Sum+a[i,M-(j-i)];
    end;
   Writeln(Sum);
  end;

 for j:=M-1 downto 1 do
  begin
   Sum:=0;
   for i:=1 to j do
    begin
     Sum:=Sum+a[M-(j-i),i];
    end;
   Writeln(Sum);
  end;
end.

program Matrix82;

type

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

var

a:matrix;

Sum,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:=1 to M-1 do

begin

Sum:=0;

for i:=1 to j do

begin

Sum:=Sum+a[i,M-(j-i)];

end;

Writeln(Sum);

end;

for j:=M-1 downto 1 do

begin

Sum:=0;

for i:=1 to j do

begin

Sum:=Sum+a[M-(j-i),i];

end;

Writeln(Sum);

end;

end.

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

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

asdfg

29.02.2020 в 13:53

суммы центральной диагонали не хватает. лечится путем добавления одной итерации внешнего цикла либо к обработке первой половины либо второй.
(либо for j:=1 to M do либо for j:=M downto 1 do, (а не М-1))

Ответить

program M82;
 type
     mas = array [1..10, 1..10] of integer;
 var
     a: mas;
     m, i, j, sum: integer;
 begin
     write('m: ');
     readln(m);
     for i:=1 to m do
         for j:=1 to m do
             a[i,j] := random(9);
     for i:=1 to m do
     begin
         for j:=1 to m do
             write(':', a[i,j]);
         writeln(':')
     end;
     for i:=1 to m-1 do
     begin
         sum := 0;
         for j:=m downto m-i+1 do
             sum := sum + a[m-j+1,m-i+m-j+1];
         writeln(sum)
     end
 end.

program M82;

type

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

var

a: mas;

m, i, j, sum: integer;

begin

write('m: ');

readln(m);

for i:=1 to m do

for j:=1 to m do

a[i,j] := random(9);

for i:=1 to m do

begin

for j:=1 to m do

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

writeln(':')

end;

for i:=1 to m-1 do

begin

sum := 0;

for j:=m downto m-i+1 do

sum := sum + a[m-j+1,m-i+m-j+1];

writeln(sum)

end

end.

Ответить

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

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

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

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