i, j : Integer; begin Writeln('Sisestame maatriksi:'); repeat Write('Palun sisestage N :'); ReadLn(N); Write('Palun sisestage M :'); ReadLn(M); until (N <= MaxN) and (M <= MaxM); For i := 1 to N do For j := 1 to M do begin Write('Rida : ',i ,' Veerg : ',j ,' element : '); 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 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 }
i, j : Integer; begin Writeln('Sisestame maatriksi:'); repeat Write('Palun sisestage N :'); ReadLn(N); Write('Palun sisestage M :'); ReadLn(M); until (N <= MaxN) and (M <= MaxM); For i := 1 to N do For j := 1 to M do begin Write('Rida : ',i ,' Veerg : ',j ,' element : '); 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
annaabi.ee 
