integeer p(10),i,j,x
logical nasli
do i=1,10
nasli=.false.
do while(.not.nasli)
x=int(ran(seme)*100)
nasli=.true.
do j=1,i-1
if(p(j).eq.x)nasli=.false.
enddo
enddo
p(i)=x
enddo
print*,p
end
| Avtor: Danilo Klasinc |
|
|
 |
 |
 |
|
|
|
| |
 |
 |
 |
|
|
|
|
|
|
|
|
| |
integeer p(10),i,j,x
logical nasli
do i=1,10
nasli=.false.
do while(.not.nasli)
x=int(ran(seme)*100)
nasli=.true.
do j=1,i-1
if(p(j).eq.x)nasli=.false.
enddo
enddo
p(i)=x
enddo
print*,p
end
| Avtor: Danilo Klasinc |
|
|
|
|
|
|
|