Massiivid variant 11
Parameetrid: uus massiiv D(), vektor B(), massiivi ridade arv m, veergude arv n.
Liidab vektori B() massiivi A() nendele ridadele, kus kõrvaldiagonaali element on negatiivne ning moodusta
massiivi D().
Peaprotseduuris võtab massiivid D=A´ga , seejärel rakendab liitmistehte, mille järel paigutab tekkinud mas
massiivi alla, tingimusel, et kõrvaldiagonaalil esineb negatiivseid arve,
Sub Max_el(A(), m, n, max, rn, vn)
Parameetrid: massiiv A(), m, n, maksimaalne element max, reanumber rn, veerunumber vn.
Leiab maksimaalse elemendi väljaspool peadiagonaali ning kannab vastava elemendi andmed etteantud la
lausega teeb kindlaks, et tegu ei oleks peadiagonaalil asuva elemendiga.
Sub Vaheta(E(), n, v_1)
Parameetrid: uus massiiv E(), viimase veeru number n, v_1 veerg, kus asub maksimaalne element.
Vahetab viimase veeru veeruga, kus asub protseduuris Sub Max_el leitud maksimaalne element.
Sub Varvi(Aprk As Range,n)
Parameetrid: Aprk massiivi A() piirkond, n ridade/veergude arv.
annaabi.ee 
