Matematické Fórum

Sub GEA()
  Dim N
  Dim A(17, 17)
  N = 4
  Dim max
  max = 0

 'Nevím jak udělat dvourozměrné pole
  A(17, 17) = Array(5, 2, 3, 4, 3, 6, 7, 8, 1, 10, 5, 12, 0, 14, 15, 16)
   
  'Eliminace
  For i = 0 To N - 1
     For j = i + 1 To N - 1
      If Abs(A(j, i)) > Abs(A(i, i)) Then
        max = j
      End If
     Next j
    For k = i To M - 1
      pom = A(i, k)
      A(i, k) = A(max, k)
      A(max, k) = pom
    Next k
    
    For j = i + 1 To N - 1 
      For k = N To i Step -1
        A(j, k) = A(j, k) - A(i, k) * A(j, i) / A(i, i)
      Next k
    Next j
  Next i
  
  ' Výpis
  radek = 12
  pr = 0
  velikost = 16
    
  For i = 2 To velikost
      Sheets("Excel-VBA").Cells(radek + pr, i - pr * 4) = A(i, i)
      If i > (pr + 1) * 4 And i < (pr + 2) * (4 + 1) Then
         pr = pr + 1
      End If
  Next i
End Sub