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

Matrix81. Дана квадратная матрица $$A$$ порядка $$M$$. Найти среднее арифметическое элементов ее побочной диагонали, то есть диагонали, содержащей следующие элементы:
$$A_{1,M}, A_{2,M-1}, A_{3,M-2}, …, A_{M,1}$$.

Решение:

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

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

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

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

 Sum:=0;
 for i:=1 to M do
  Sum:=Sum+a[i,M-i+1];

 Writeln(Sum);
end.

program Matrix81;

type

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

var

a:matrix;

Sum,M, i, j:Integer;

begin

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to M do

begin

Write(j,' : ');

Read(a[i,j]);

end;

Sum:=0;

for i:=1 to M do

Sum:=Sum+a[i,M-i+1];

Writeln(Sum);

end.

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

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

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

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