Egy 5x10-es mátrix sor és oszlopösszegét hogyan tudom kiszámolni?

oszlopösszeg = array[5] of integer

sorösszeg = array[10] of integer

for i=1 to 10 do

for j=1 to 5 do

sorösszeg[i]=sorösszeg[i]+mátrix[i,j]

oszlopösszeg[j]=oszlopösszeg[j]+mátrix[i,j]

valami ilyesmi :)

Ha ilyen egyszerű feladatot nem tudsz megcsinálni, nem tudom, miért akarsz programozni...

maga az elv:

végigmész a mátrix összes elemén (i, j indexek segítségével)

minden elemnél a hozzá tartozó sor-, valamint a hozzá tartozó oszlop-összegző változó értékéhez hozzáadod az értékét.

Ennél egyszerűbben elmagyarázni nem tudom, "Pascalul" meg nem fogom leírni.

Ha heti 12 órában ezt tanulod, akkor tudnod kéne, de ez nem a te hibád. (Ha nem tudod.)

Pascal:

program matrixosszeg;

uses crt;

var sorosszeg : Array[5] of Integer;

oszloposszeg : Array[10] of Integer;

i,j : integer;

matrix : Array[5,10] of Integer;

Begin

clrscr;

{ Valahol fel kell tölteni a mátrixot, de az gondolom már megvan. Szóval a matrix tömbnek már vannak elemei... }

for i:=1 to 5 do

for j:=1 to 10 do

begin

sorosszeg[i] := sorosszeg[i]+matrix[i,j];

oszloposszeg[j] := oszloposszeg[j]+matrix[i,j];

end;

readkey;

End.

-----

Na most: Én régen pascaloztam, ezért lehetnek benne hibák, de talán segítségnek jól jön!