program sestej_polji real a(10),b(10),c(10) integer i Print*,'vnesi stevila prvega polja' read*,(a(i),i=1,9) print*,'vnesi stevila drugega polja' read*,(b(i),i=1,9) do i=1,9 c(i)=a(i)+b(i) enddo print*,c end
| Avtor: Danilo Klasinc |
|
|
 |
 |
 |
|
|
|
| |
 |
 |
 |
|
|
|
|
|
|
|
|
| |
program sestej_polji real a(10),b(10),c(10) integer i Print*,'vnesi stevila prvega polja' read*,(a(i),i=1,9) print*,'vnesi stevila drugega polja' read*,(b(i),i=1,9) do i=1,9 c(i)=a(i)+b(i) enddo print*,c end
| Avtor: Danilo Klasinc |
|
|
|
|
|
|
|