program matrika real mat(3,3) integer i,j,vs print*,'vstavi elemente' read*,((mat(i,j),j=1,3),i=1,3) do j=1,3 print*,'na diagonali so',mat(i,j) enddo vs=0 do i=1,3 vs=vs+mat(i,j) enddo print*,'vsota =',vs end
| Avtor: Danilo Klasinc |
|
|
 |
 |
 |
|
|
|
| |
 |
 |
 |
|
|
|
|
|
|
|
|
| |
program matrika real mat(3,3) integer i,j,vs print*,'vstavi elemente' read*,((mat(i,j),j=1,3),i=1,3) do j=1,3 print*,'na diagonali so',mat(i,j) enddo vs=0 do i=1,3 vs=vs+mat(i,j) enddo print*,'vsota =',vs end
| Avtor: Danilo Klasinc |
|
|
|
|
|
|
|