DIMEN3

 !Program name: DIMEN3

real, dimension(10) :: A=(/ 1,2,3,4,5,6,7,8,9,10 /)

Real, dimension(10) :: B

where (A>5)

    B=1.

Elsewhere

    B=0

end where

write (*,*) A, B

stop

end

Comentários

  1. This bets that one of four numbers will hit on the following spin. The numbers should all be touching and shifting a chip into the middle of four numbers locations the guess. In this guess, a participant is wagering that any number in a specific row will hit on the following spin. To make this guess, you have to place a chip within the outdoors line of the row on 카지노사이트 which you wish to guess. Inside Bets– Bets made on the within section of the roulette desk.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

DATA

RECURSIVE

HYDROGEN-RADIAL