#Zadanie 1. Wyznac zyć mac ierz odwrotną do iloc zynu mac ierzy

A=cbind(c(5,2,-2),c(1,-1,8))
B=rbind(c(1,3,3),c(2,1,5))
C=B%*%A
det(C)
solve(C)

#Zadanie2. Napisać funkję sumdiag(A), która dla zadanej macierzyA
zwraca w wyniku macierz diagonalną zawierzającą na głównej przekątnej, na i-tej pozycji, sumę elementów lezących
w i-tym wierszu i i-tej kolumnie macierzy A.


sumdiag=function(A) {
if(nrow(A)==ncol(A)) {k=nrow(A)
} else k=min(nrow(A),ncol(A))
B=matrix(0,k,k)
{for(i in 1:k)
B[i,i]=sum(A[i,],A[,i])}
(B)
}
sumdiag(A)