массивы-квадратная матрица

[Sha[D]oW]

Дана квадратная матрица A(n,n). Найти сумму элементов массива, расположенных
на главной и побочной диагоналях.
никак не получается сделать эту задачу(помогите пожалуйста,если можно,то не слишком замудрённо.спасибо

[Sciv]

Ввод рандомом:

randomize;
for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(20)-15;

Сумма главной:

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

Сумма побочной:

s:=0;
for i:=n downto 1 do s:=s+a[i,n-i+1];

Объединяйте в один код.

[Sha[D]oW]

Дана квадратная матрица A(n,n). Найти сумму элементов массива, расположенных
на главной и побочной диагоналях.само условие

const n=10;
var
a:array[1..n,1..n] of integer;
s,i,j:integer;
begin
randomize;
for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(20)-15;
    begin
    s:=0;
      for i:=1 to n do s:=s+a[i,i];
 begin
  s:=0;
  for i:=n downto 1 do s:=s+a[i,n-i+1]

дальше должен идти вывод массива,или я в данном коде уже что то напутал?подскажите пожалуйста,если вывод,то как?как то так?

begin
for i:=1 to n do;
for j:=1 to n do;
write(a[i,j],' ');
writeln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Sciv]

 bеgin 
for i:=1 to n do begin
  for j:=1 to n do write(a[i,j]:3,' ');
  writeln;
end;
end.

Красное - убрать. a[i,j]:3 - цифра означает форматирование (сколько знаков на экране отведено под число)

[Serge_Bliznykov]

Sha[D]oW, во-первых, не надо создавать новую тему, если у Вас уже одна такая же есть - в ней и продолжайте!
во-вторых, могли бы и поблагодарить Sciv за помощь в виде кода.

в-третьих, у вас в циклах ненужные точки с запятой, которые ЗАКРЫВАЮТ (обрывают цикл)
нужно выводить матрицу вот так:

  for i:=1 to n do 
  begin
     for j:=1 to n do
          write(a[i,j],' ');
     writeln;
  end;

[Sha[D]oW]

1)я думал,что раз в теме уже ответили,то её никто не будет читать(я недавно на данном форуме)2)мне бы хотелось поблагодарить Sсiv'a,но я не нашел как отправить л/с.3)впредь буду следить,как создавать темы.спасибо

[Sha[D]oW]

const n=10;
var
a:array[1..n,1..n] of integer;
s,i,j:integer;
begin
randomize;
for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(20)-15;
    begin
    s:=0;
      for i:=1 to n do s:=s+a[i,i];
 begin
  s:=0;
  for i:=n downto 1 do s:=s+a[i,n-i+1];
  begin
   for i:=1 to n do
  begin
     for j:=1 to n do
          write(a[i,j],' ');
     writeln;
  end;
end;
end;
end;
end.

получилась данная программа,но почему она не считает сумму?где ошибка?

[Sciv]

Во второй теме ответил, далее буду продолжать здесь. Дублировать то сообщение не буду, так как Сергей уже один в один ответил

Теперь по коду: у Вас сам код неправильно объединен. Begin'ы непонятно от каких фонарей расставлены, end'ов к ним вообще не хватало сначала. Теперь вроде исправили, но если честно - все эти begin-end там не нужны. Выводов сумм на экран тоже нет - смысл самого условия задачи из-за этого теряется: зачем вычислять, если не видишь результата?

var
a:array[1..n,1..n] of integer;
s,i,j:integer;
begin
 randomize;
 for i:=1 to n do
  for j:=1 to n do
    a[i,j]:=Random(20)-15;

 s:=0;
 for i:=1 to n do s:=s+a[i,i];
 WriteLn('Сумма на главной диагонали: ',s:3);

 s:=0;
 for i:=n downto 1 do s:=s+a[i,n-i+1];
 WriteLn('Сумма на побочной диагонали: ',s:3);

 for i:=1 to n do begin
  for j:=1 to n do  write(a[i,j],' ');
   writeln;
 end;

end.

И еще - я думаю, вывод матрицы нужно делать до вычисления сумм - для наглядности.

[Serge_Bliznykov]

Svic, я перенёс Ваш ответ в данную тему (слил две темы в одну..)

но почему она не считает сумму

попытайтесь разобраться в предложенном вами коде.
Найти, где же считается сумма..

  s:=0;
      for i:=1 to n do s:=s+a[i,i];
....
  s:=0;
  for i:=n downto 1 do s:=s+a[i,n-i+1];

потом подумать, что нужно, для того, чтобы сумма не только посчиталась, но и результат куда-то вывелся (например, это можно сделать с помощью оператора вывода на консоль WriteLn ... )

[Sciv]

Svic, я перенёс Ваш ответ в данную тему (слил две темы в одну..)

Спасибо. А то за двумя темами смотреть - что ни в одной не участвовать.