Matricos

Sveiki. taigi prireike man is matricos kelis skaicius istraukt. reikia po salutine ystrizaine rast skaiciu suma.

pvz 1 2 3

4 5 6

7 8 9

reikia kad man sudetu 8+6+9. kaip reiketu apsirayt for ciklus? toliau visa kita pats sugebeciau pasidaryti.

.

Radau iš senesnių laikų kažką:

var
 a:array[1..20] of array [1..20] of integer;
 n,i,j:integer;
 suma,suma1:integer;
begin
   write('Kvadratine matrica a(n,n), iveskite n: ');  //galima ivesti i viena eilute
   read(n);
   for i:=1 to n do
   begin
         for j:=1 to n do
         begin
             write('Iveskite ',i,'-osios eilutes ',j ,'-aji nari: ');
             readln(a[i][j]);
         end;
   end;
   for i:=1 to n
     do begin
       for j:=1 to n do
       write(a[i][j]:4); writeln;
       end;
   suma:=0;
   for i:=1 to n do
   for j:=1 to n do
   begin
     if i=j then suma:=suma+a[i,i];
     if i>j then  suma1:=suma1+a[i,j];
   end;

   writeln('Pagrindines istrizaines suma: ',suma ,' po pagrindines istrizaines: ',suma1);
   readln;
end.

Pasireguliuosi pagal save, ko konkrečiai reik.

su pagrindine man viskas aisku pasidarau as ja lengvai, bet su salutine nesigauna. keiciu skaicius vairiai vis tiek nesigauna.

jei matricą apsirašei taip

matrica:array[1..n,1..n] of integer;

(jei gerai prisimenu, tai tik kvadratinės matricos turi įstrižaines), tai ciklas turėtų atrodyti panašiai:

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