Паскаль и суммы

[SEREG@]

Моему другу задали задачу,но он не знает как ее решить,плиз помогите ему.Вот задача:найти сумму элементов массива выше главной диагонали и ниже,а также найти сумму строк и столбцов.Заранее спасибо.

[kommunist]

cумма элементов расположенных выше и ниже диагонали

program zadacha1;
uses crt;
const n  = 5;
type matrica = array[1..n,1..n] of integer;
var
 a:matrica;
 i:integer;
 j:integer;
 sum1:integer;
 sum2:integer;
begin
 clrscr;
randomize;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
a[i,j] := random(10);
write(A[i,j]:2,' ');
end;
writeln;
end;
writeln;
sum1:=0;
sum2:=0;
for i:= 1 to n do
begin
for j:= 1 to n do
begin
if i < j
then
inc(sum1,a[i,j])
else
inc(sum2,a[i,j]);
end;
writeln;
end;
writeln(sum1);
write(sum2); 
writeln;
readln;
end;

[Карась]

Задача поставленна неверна..... Например в одномерном массиве нет диагоналей...

{Сумма столбцов}
For x := 1 to 4 do begin 
For y := 1 to 4 do Sum := Sum + mas[x,y];
Writeln (sum);

{Сумма строк}
For x := 1 to 4 do begin 
For y := 1 to 4 do Sum := Sum + mas[y,x];
Writeln (sum);

Незабудь подогнать под свой массив (тобишь заменить 4 на нужную цифру)

[zetrix]

Карась, и чем будут отличаться первая сумма и вторая у тебя?)

{Сумма столбцов}  
For x := 1 to 4 do
begin
  Sum:=0;    
  For y := 1 to 4 do 
  begin
    Sum := Sum + mas[x,y];
    Writeln (sum);
  end;
end;

{Сумма строк}  
For y := 1 to 4 do
begin
  Sum:=0;    
  For x := 1 to 4 do 
  begin
    Sum := Sum + mas[x,y];
    Writeln (sum);
  end;
end;

To kommunist: при вычислении элементов ниже диагонали (i < j ... else (т.е. иначе i>=j)), также присуммируется элементы самой диагонали, что не нужно.

...
for i:= 1 to n do  
  begin  
  for j:= 1 to n do  
    begin  
    if i < j then inc(sum1,a[i,j])
      else if i > j then inc(sum2,a[i,j]);   
    end;   
  writeln;   
end;
...

[SEREG@]

Сумму элементов выше и ниже диагонали мы с ним нашли,но нужно то еще дописать в эту же задачу сумму строк и столбцов,а вот как найти ее и дописать задачу мы не знаем.Просьба выложить задачу полностью.

[Карась]

program Project1;

{$APPTYPE CONSOLE}

Var x, y: byte;
    mas: array [1..4,1..4] of integer;
    sum: integer;
begin
Sum := 0;
Randomize;
For x := 1 to 4 do
For y := 1 to 4 do mas[x,y] := Random(10);

For x := 1 to 4 do begin
For y := 1 to 4 do Write(mas[x,y],' '); Writeln; End;
Writeln;
{Сумма столбцов}
For x := 1 to 4 do begin
For y := 1 to 4 do Sum := Sum + mas[x,y];
Writeln (sum); Sum := 0;  End;
Writeln;
{Сумма строк}
For x := 1 to 4 do begin
For y := 1 to 4 do Sum := Sum + mas[y,x];
Writeln (sum); Sum := 0;  End;

Readln;
end.

Карась, и чем будут отличаться первая сумма и вторая у тебя?)

For y := 1 to 4 do Sum := Sum + mas[X,Y];
For y := 1 to 4 do Sum := Sum + mas[Y,X];

При подсчёте суммы меняются индексы местами... Причём ты сделал тоже самое только замена индексов у тебя в цикле...


Полный код, который находит и выводит суммы строк и столбцов, я написал....

[SEREG@]

Сообщение от Карась

Полный код, который находит и выводит суммы строк и столбцов, я написал....

Просьба обьединить 2 массива (вычисление суммы элементов выше и ниже диагонали вместе с вычислением суммы строк и столбцов) в 1.Заранее спасибо.