Trabalho 3° Algoritmo

algoritmo "Exercicio02"

// Escreva um algoritmo que leia e mostre um vetor de 20 elementos inteiros e a seguir,

// conte quantos valores pares existem no vetor.

var

vet:vetor[1..20] de inteiro

cont,i: inteiro

inicio

cont<-0

escreval("Entre com 20 números inteiros:")

para i de 1 ate 20 faca

escreva("Entre com o", i,"º numero:")

leia(vet[i])

fimpara

para i de 1 ate 20 faca

se vet[i] mod 2 = 0 entao

cont<-cont + 1

fimse

fimpara

escreval("A quantidade de números pares no vetor é: ", cont)

fimalgoritmo

algoritmo "Exercicio03"

// Escreva um algoritmo que leia dois vetores de 10 posições e faça a multiplicação dos

// elementos de mesmo índice, colocando o resultado em um terceiro vetor. Mostre o

// vetor resultante.

var

vet1, vet2, vet3:vetor[1..10] de inteiro

inicio

escreval("Entre com 10 números inteiros do primeiro vetor:")

para i de 1 ate 10 faca

escreva("Entre com o", i,"º numero:")

leia(vet1[i])

fimpara

escreval("Entre com 10 números inteiros do segundo vetor:")

para i de 1 ate 10 faca

escreva("Entre com o", i,"º numero:")

leia(vet1[i])

fimpara

para i de 1 ate 10 faca

vet3[i] <- vet[i] * vet2[i]

fimpara

escreval("O vetor resultante é:")

para i de 1 ate 10 faca

escreva(vet3[i])

fimpara

fimalgoritmo