Определить суммы всех элементов матрицы, лежащих на диагоналях - Turbo Pascal

Формулировка задачи:

Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

Код к задаче: «Определить суммы всех элементов матрицы, лежащих на диагоналях - Turbo Pascal»

textual
const
  n = 3;
 
var
  j, i: integer;
  s: real;
  a: array [1..n, 1..n] of real;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random * n;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  s := 0;
  for i := 1 to n do
  begin
    s := s + a[i, i];
    s := s + a[i, n - i + 1];
  end;
  if Odd(n) then 
    s := s - a[n div 2 + 1][n div 2 + 1];
  writeln('Sum: ', s);  
end.

5   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ