Questões basica programação

1) Faça um programa em pascal que receba:
· O código do produto comprado;
· A quantidade comprada do produto.
Calcule e mostre:
· O preço unitário do produto comprado, seguindo a Tabela I;
· O preço total da nota;
· O valor do desconto, seguindo a Tabela II e aplicado sobre o preço total da nota;
· O preço final da nota depois do desconto.
TABELA I
Código Preço
1 a 10 R$ 10,00
11 a 20 R$ 15,00
21 a 30 R$ 20,00
31 a 40 R$ 30,00
TABELA II
Preço Total da Nota % de desconto
Até R$ 250,00 5%
Entre R$ 250,01 e R$ 500,00 10%
Acima de R$ 500,01 15%
2) Uma empresa decidiu dar uma gratificação de Natal a seus funcionários, baseada no número de horas extras e no número de horas que o funcionário faltou ao trabalho. O valor do prêmio é obtido pela consulta à tabela que se segue, na qual:
H = número de horas extras – (2/3 * (número de horas_falta))
H (MINUTOS) PRÊMIO (R$)
> 2.401 500,00
1.801 – 2.400 400,00
1.201 a 1.800 300,00
600 a 1.200 200,00
< 599 100,00
3) Cada expectador de um cinema respondeu a um questionário no qual constava sua idade e sua opinião em relação ao filme: ótimo – 3, bom – 2, regular – 1. Faça um programa que receba a idade e a opinião de 15 espectadores, calcule e mostre:
· A média das idades das pessoas que responderam ótimo;
· A quantidade de pessoas que responderam regular;
· A percentagem de pessoas que responderam bom, entre todos os espectadores analisados. 4) Faça um programa em pascal que leia um vetor com quinze posições para números inteiros.
Crie a seguir, um vetor resultante que contenha todos os números primos do vetor digitado.
Escreva o vetor resultante.
5) Faça um programa em pascal que leia um vetor com 20 posições para números inteiros.
Depois da leitura, multiplique todos os seus elementos pelo maior valor do vetor. Mostre o vetor após os cálculos.

RESOLUÇÃO::

Exercício 1
Program Pzim ; var cod,quant:integer; punit,ptnot,vld,prf, desc: real; Begin clrscr; write('Favor entrar