aula11

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Fundamentos da 
Computação 
Priscilla Fonseca de Abreu 
turmas_uerj@yahoo.com.br 
 
Universidade do Estado do Rio de Janeiro 
Instituto de Matemática e Estatística 
Exercícios 
1) Declare um vetor de 10 posições e o preencha com 
os 10 primeiros números impares e o imprima. 
 
 
2) Leia 10 notas, coloque em um vetor e depois 
calcule a média delas. Mostre quantas notas 
estão abaixo da média, quantas estão na média e 
quantas estão acima da média. 
 
 
3) Leia um vetor de 20 inteiros e depois conte 
quantos números pares estão contidos no vetor. 
 
 
4) Leia um vetor de 15 posições e atribua valor 0 para 
todos os elementos que possuírem valores negativos. Ao 
final imprima o vetor resultante. 
 
 
EXERCÍCIOS 
program ex2; 
uses crt; 
var 
 i,maior,men,igual: integer; 
 med:real; 
 notas:array[1..10] of real; 
begin 
 med:=0; 
 maior:=0; 
 men:= 0; 
 igual:=0; 
 for i:= 1 to 10 do 
 begin 
 writeln('Nota ',i,':'); 
 readln(notas[i]); 
 med:=med+notas[i]; 
 end; 
 med:=med/10; 
 writeln('Média da turma: ',med:5:1); 
 for i:= 1 to 10 do 
 begin 
 if (notas[i]>med) then 
 maior:=maior+1 
 else 
 if(notas[i]<med) then 
 men:=men+1 
 else 
 igual:=igual+1; 
 end; 
 writeln('Quantidade de alunos acima da média: ',maior); 
 writeln('Quantidade de alunos abaixo da média: ',men); 
 writeln('Quantidade de alunos na média: ',igual); 
 readkey; 
end. 
Exercícios 
1) Declare um vetor de 10 posições e o preencha com 
os 10 primeiros números impares e o imprima. 
 
 
2) Leia 10 notas, coloque em um vetor e depois 
calcule a média delas. Mostre quantas notas 
estão abaixo da média, quantas estão na média e 
quantas estão acima da média. 
 
 
3) Leia um vetor de 20 inteiros e depois conte 
quantos números pares estão contidos no vetor. 
 
 
4) Leia um vetor de 15 posições e atribua valor 0 para 
todos os elementos que possuírem valores negativos. Ao 
final imprima o vetor resultante. 
 
 
EXERCÍCIOS 
program ex3; 
uses crt; 
var 
 pares,i: integer; 
 vet:array[1..20] of integer; 
begin 
 pares:=0; 
 for i:= 1 to 20 do 
 begin 
 writeln('Elemento ',i,':'); 
 readln(vet[i]); 
 if (vet[i] mod 2 = 0) then 
 pares:=pares+1; 
 end; 
 writeln('Quantidade de números pares lidos: ',pares); 
 readkey; 
end. 
 
 
 
Exercícios 
1) Declare um vetor de 10 posições e o preencha com 
os 10 primeiros números impares e o imprima. 
 
 
2) Leia 10 notas, coloque em um vetor e depois 
calcule a média delas. Mostre quantas notas 
estão abaixo da média, quantas estão na média e 
quantas estão acima da média. 
 
 
3) Leia um vetor de 20 inteiros e depois conte 
quantos números pares estão contidos no vetor. 
 
 
4) Leia um vetor de 15 posições e atribua valor 0 para 
todos os elementos que possuírem valores negativos. Ao 
final imprima o vetor resultante. 
 
 
EXERCÍCIOS 
program ex4; 
uses crt; 
var 
 i: integer; 
 vet:array[1..15] of integer; 
begin 
 for i:= 1 to 15 do 
 begin 
 writeln('Elemento ',i,':'); 
 readln(vet[i]); 
 if (vet[i] < 0) then 
 vet[i]:=0; 
 end; 
 for i:= 1 to 15 do 
 writeln('Elemento ',i,':',vet[i]); 
 readkey; 
end.