Vetor e matriz/ fortran

UNIVERSIDADE FEDERAL DO MANHÃO
EXERCÍCIO DE VETOR E MATRIZ – FORTRAN vetor
1. Armazenar 10 nomes em um vetor NOME e imprimir uma listagem numerada. character nome(10) integer i do i=1,10,1 read (*,*) nome(i) enddo do i=1,10,1 write(*,*) i, "=", nome(i) enddo stop end
2. Armazenar 15 números em um vetor NUM e imprimir uma listagem numerada contendo o número e uma das mensagens: PAR ou ÍMPAR. integer num(1:15) integer i write (*,*) "entre com 15 n£meros" do i=1,15,1 read(*,*) num(i) enddo do i=1,15,1 if(mod(num(i),2)==0) then write (*,*) num(i), "‚ par" else write(*,*) num(i), "‚ ¡mpar" endif enddo stop end
3. Armazenar 8 números em um vetor X e imprimir todos os números. Multiplique todos os elementos com índice ímpar do vetor X por 10 e imprima o vetor final. integer x(8), i do i=1,8,1 read(*,*) x(i) enddo do i=1,8,1 write(*,*) x(i) enddo write(*,*) " " do i=1,8,1 if (mod(i,2).eq.1) then x(i)=x(i)*10 endif write(*,*) x(i) enddo stop end
4. Armazenar nome e salário de 20 pessoas. Calcular e armazenar o novo salário sabendo-se que o reajuste foi de 8%. Imprimir uma listagem numerada com nome e novo salário. integer sali(20), i real salf(20) character*10 nome(20) write (*,*) "entre com nome e sal rio" do i=1,20,1 read (*,*) nome(i), sali (i) enddo do i=1,20,1 salf(i)=sali(i)*1.08 write (*,*) nome(i), salf(i) enddo stop end
5. Ler um vetor X de 10 elementos e obter um vetor F cujos componentes são os fatoriais dos respectivos componentes de X. integer X(10),fat(10),i,j do i=1,10,1 read(*,*) X(i) enddo do i=1,10,1 fat(i)=1 do