Автор: Gamer

Gamer — Wed, 20 Oct 2021 20:40:36 +0000

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.

Автор: asdfg

asdfg — Sat, 29 Feb 2020 09:53:17 +0000

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

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

Автор: Gamer

Автор: asdfg