Witam
Na stronie http://4programmers.net/article.php?id=104 znalazlem blad przy mnozeniu dwóch macierzy, do poprawienia sa dwie linijki. Jest:
for i := 1 to Ax do
N[x,y] := N[x,y] + A[i,y]*B[x,i];
W takiej formie nie jest poprawny wynik, po poprawieniu na:
for i := 1 to Ay do
N[x,y] := N[x,y] + A[w,i]*B[i,y];
Jest wszystko OK.