end; WriteLn('Andmed sisestatud!'); end; { Funktsioon maatriksi r-nda rea summa leidmiseks. } function ReaSumma(r : Integer) : LongInt; { formaalne parameeter } var { lokaalsed muutujad } Summa : LongInt; v : Integer; begin 90 / 115 Summa := 0; for v := 1 to N do Summa := Summa + T[r,v]; ReaSumma := Summa; end; { Funktsioon maatriksi v-nda veeru summa leidmiseks. } function VeeruSumma(v : Integer) : LongInt; { formaalne parameeter } var { lokaalsed muutujad } Summa : LongInt; r : Integer; begin Summa := 0; for r := 1 to N do Summa := Summa + T[r,v]; VeeruSumma := Summa; end; { Protseduur kahe suvalise täisarvu tüüpi muutuja väärtuste vahetamiseks. } procedure Vaheta(var a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } c : Integer; begin
ReadLn(T[i,j]); end; WriteLn('Andmed sisestatud!'); end; { Funktsioon maatriksi r-nda rea summa leidmiseks. } function ReaSumma(r : Integer) : LongInt; { formaalne parameeter } var { lokaalsed muutujad } Summa : LongInt; v : Integer; begin Summa := 0; for v := 1 to N do Summa := Summa + T[r,v]; ReaSumma := Summa; end; { Funktsioon maatriksi v-nda veeru summa leidmiseks. } function VeeruSumma(v : Integer) : LongInt; { formaalne parameeter } var { lokaalsed muutujad } Summa : LongInt; r : Integer; begin Summa := 0; for r := 1 to N do Summa := Summa + T[r,v]; VeeruSumma := Summa; end; { Protseduur kahe suvalise täisarvu tüüpi muutuja väärtuste vahetamiseks. } procedure Vaheta(var a, b : Integer); { formaalsed parameetrid } var { lokaalne muutuja } c : Integer; begin
annaabi.ee 
