algoritmos

[juniorsk15 0]

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.

[erichideki 0]

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.

[Sergio Cavalcante 6]

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