Algoritmos de escrita

var

V: vetor[1..10] de inteiro

i,TP,TI: inteiro

inicio

para i:= 1 ate 10 faca

escreva("Informe o ",i,"º número:")

leia(V[i])

fimpara

para i:= 1 ate 10 faca

se (V[i] %2 =0) entao

TP:= TP + 1

escreval("Número par na posição:", i)

fimse

fimpara

para i:= 1 ate 10 faca

se (V[i] %2 =1) entao

TI:= TI + 1

escreval("Número impar na posicao:", i)

fimse

fimpara

fimalgoritmo

var

nm,ns: vetor[1..10] de literal

ni: vetor[1..10] de inteiro

IM: real

i,SI: inteiro

inicio

para i:= 1 ate 5 faca

escreva("Informe o nome da primeira pessoa",i,"º:")

leia(nm[i])

escreva("Informe o sexo:")

leia(ns[i])

escreva("Informa a idade:")

leia(ni[i])

se ni[i]>0 entao

SI:=SI + ni[i]

fimse

IM:= SI/5

fimpara

escreval("Listado abaixo, usuarios com idade maior que a média")

para i:=1 ate 5 faca

Se ni[i]>IM entao

escreval("Usuario",i,":",nm[i])

escreval("Sexo:", ns[i])

escreval("Idade:", ni[i])

fimse

fimpara

fimalgoritmo