Baixe o app para aproveitar ainda mais
Prévia do material em texto
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.
Compartilhar