Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

juniorsk15

algoritmos

Recommended Posts

Preciso de ajuda gente

 

Tenho que fazer essas questões, pzim

1.Faça uma aplicação em Pascal que leia pelo teclado 15 (quinze) números inteiros e imprima na tela:
a) A quantidade de números pares.
B) A quantidade de números ímpares.
c) A quantidade de números que são iguais ou superiores a 100 (cem).

2. Faça uma aplicação em Pascal que leia pelo teclado com 100 (cem) números inteiros (positivos e
negativos) e imprima na tela:

a) todos os números negativos.
B) todos os números positivos.
c) a soma de todos os números positivos.
d) a soma de todos os números negativos.
e) a média dos números positivos.
f) a média dos números negativos.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Quais são suas dúvidas?


Infelizmente esperar do pessoal respostas prontas será muito difícil, fale sobre sua linha de raciocínio e a galera contribuí para alcançar uma solução.

Compartilhar este post


Link para o post
Compartilhar em outros sites
algoritmo "Estuda minino"

// Função :

//autor : Cavalcate

var

i,num,impar,par,quantNumero:inteiro

inicio

// agora use a cabeça para transformar em pascal...

para i de 1 ate 5 faca


Escreva("informe o ",i,"° numero : ")

leia(num)

se (num mod 2=0)entao

par<-par+1

senao

impar <- impar+1

fimse

se (num>=100) entao

quantNumero <- quantNumero +1


fimse

fimpara


Escreval(" a quantidade de numeros impar são : ",impar)

Escreval(" a quantidade de numeros par são : ",par)

Escreval(" a quantidade de numero maior ou igual a 100: ",quantNumero)








fimalgoritmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.