Помогите составить процедуру - Вычислить сумму диагональных элементов квадратной матрицы

[Vika2016]

"Вычислить сумму диагональных элементов квадратной матрицы. Для ввода и вывода элементов матрицы составить процедуру, которая обеспечивает ввод элементов в виде таблицы."


На паскале
Наперед огромное спасибо

[Serge_Bliznykov]

Вика, покажи свой код, как ты объявляешь и заполняешь исходную квадратную матрицу.

И ещё уточни, какие именно диагонали тебя интересуют? Есть главная, есть побочная.
Этих достаточно?
Потому как есть ещё и малые диагонали, параллельные главной и паралллельные побочной.

[Vika2016]

Сообщение от Serge_Bliznykov

Вика, покажи свой код, как ты объявляешь и заполняешь исходную квадратную матрицу.

И ещё уточни, какие именно диагонали тебя интересуют? Есть главная, есть побочная.
Этих достаточно?
Потому как есть ещё и малые диагонали, параллельные главной и паралллельные побочной.

Нууу как то так.. может это и как то проще и короче записать можно..

uses
  crt;
var
  a:array[1..1000,1..1000] of real;
  i,n,j: byte;
begin
  readln(n);
  randomize;
 
  for j:=1 to n do
  begin
     for i:=1 to n do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:9)
        end;
      writeln;
    end;
  
end.

Главной и побочной диагонали вполне достаточно

[dimon_snake]

Ну, можно

sum:=0;
for i:=1 to n do
sum:=sum+a[i,i];

А для второй диагонали:

for i:=1 to n do
  for j:=n downto 1 do
      sum:=sum+a[i,j];

Кстати, код выделяйте тегом code, он решеткой помечен.

[Vika2016]

Сообщение от dimon_snake

Ну, можно

sum:=0;
for i:=1 to n do
sum:=sum+a[i,i];

А для второй диагонали:

for i:=1 to n do
  for j:=n downto 1 do
      sum:=sum+a[i,j];

Кстати, код выделяйте тегом code, он решеткой помечен.

для второй диагонали не работает что то..


Да и мне ведь процедура ко всему этому нужна

[dimon_snake]

Относительно второй диагонали это да, я напутал.

k:=n+1;
for i:=1 to n do
begin
  k:=k-1;
  sum:=sum+a[i,k];
end;

В задании сказано процедура для ВВОДА и вывода, а вы генерируете числа, а не вводите их.

[dimon_snake]

procedure matrix(num:integer);
var
l,m:integer;
begin
  for l:=1 to num do
  begin
    for m:=1 to num do
    begin
      a[l,m]:=Random(100)+1;
      Write(a[l,m],' ');
    end;
    Writeln;
  end;
end;

[Vika2016]

Сообщение от dimon_snake

Относительно второй диагонали это да, я напутал.

k:=n+1;
for i:=1 to n do
begin
  k:=k-1;
  sum:=sum+a[i,k];
end;

В задании сказано процедура для ВВОДА и вывода, а вы генерируете числа, а не вводите их.

нуу это да
изменить на ввод матрицы из клавиатуры вроде не трудна

остаеться процедура...

[dimon_snake]

Сообщение от dimon_snake

procedure matrix(num:integer);
var
l,m:integer;
begin
  for l:=1 to num do
  begin
    for m:=1 to num do
    begin
      a[l,m]:=Random(100)+1;
      Write(a[l,m],' ');
    end;
    Writeln;
  end;
end;

А в процедуре что трудного?
Только замените

a[l,m]:=Random(100)+1

на

Readln(a[l,m]);

[Vika2016]

Сообщение от dimon_snake

procedure matrix(num:integer);
var
l,m:integer;
begin
  for l:=1 to num do
  begin
    for m:=1 to num do
    begin
      a[l,m]:=Random(100)+1;
      Write(a[l,m],' ');
    end;
    Writeln;
  end;
end;

Спасибо большое а как ее в программе поместить чтоб все работало