Questão 3

Faca um programa para apontar os resultados de uma pesquisa eleitoral para presidente da republica de Kneippopolis, o mais novo pais da America do Sul. Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho. Escreva o total e o percentual de votos de cada candidato. A seguir escreva o nome do novo presidente do pais com maior IDH do planeta.


Program Pzim ;
var
voto:char;
cont,somaZ,somaR,somaO,somaG,somaN,maior:integer;
percZ,percR,percO,percG:real;
nomepres:string;
Begin
maior:=0;
writeln('Pesquisa eleitoral para presidente da república de Kneippópolis');
writeln;
writeln('Os candidatos são: Zico, Ricardo Kneipp, Obina e Geninho');
writeln;
for cont:=1 to 10 do
begin
writeln('Dê seu voto:Zico - Z, Ricardo Kneipp - R, Obina - O, Geninho - G');
read(voto);
clrscr;
case voto of
'Z' : somaZ:= somaZ+1;
'R' : somaR:= somaR+1;
'O' : somaO:= somaO+1;
'G' : somaG:= somaG+1;
'z' : somaZ:= somaZ+1;
'r' : somaR:= somaR+1;
'o' : somaO:= somaO+1;
'g' : somaG:= somaG+1;

else
writeln('Seu voto foi invalido');
end;


if (somaZ>maior) then
begin
maior:=somaZ;
nomepres:='Zico';
end;

if (somaR>maior) then
begin
maior:=somaR;
nomepres:='Ricardo Keneipp';
end;

if (somaO>maior) then
begin
maior:=somaO;
nomepres:='Obina';
end;

if (somaG>maior) then
begin
maior:=somaG;
nomepres:='Geninho';
end;

end;

percZ:=(somaZ/10)*100;
percR:=(somaR/10)*100;
percO:=(somaO/10)*100;
percG:=(somaG/10)*100;
clrscr;
writeln('O percentual de fotos recebidos pelo candidato Zico foi:',percZ:2:2,'% e o total de votos foi:',somaZ);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Ricardo Kneipp foi:',percR:2:2,'% e o total de votos foi:',somaR);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Obina foi:',percO:2:2,'% e o total de votos foi:',somaO);
writeln;
writeln('O percentual de fotos recebidos pelo candidato Geninho foi:',percG:2:2,'% e o total de votos foi:',somaG);
writeln;
Writeln('O presidente com mais votos foi o ',nomepres,', com ',maior,' votos.');


End.

Questão 2

No programa acima, inclua a posição do maior e do menor valor encontrado.

Program ;
var
maior, menor, soma, cont,con: integer;
media :real;
vetor: array[1..50] of integer;
pmaior

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := random(99)+1;

if(vetor[cont] > maior)then
maior := vetor[cont];

if(vetor[cont] < menor)then
menor := vetor[cont];

soma:= soma + vetor[cont];
end;

media:= soma/50;

for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior);
writeln('O menor numero e ',menor);


End.

Questão 1

Para o primeiro exercício inclua quantos valores estão acima e abaixo da média

Program ;
var
maior, menor, soma, cont, con, cot : integer;
media :real;
vetor: array[1..50] of integer;
pmaior, pmenor, qacima, qabaixo: integer;

Begin
maior:=0;
menor:=101;
soma:=0;
cont:=0;

for cont:=1 to 50 do
begin
randomize;
vetor[cont] := (random(99)+1);

if(vetor[cont] > maior)then
begin
maior:= vetor[cont];
pmaior:= cont;
end;

if(vetor[cont] < menor)then
begin
menor := vetor[cont];
pmenor:= cont;
end;

soma:= soma + vetor[cont];
end;

media:= soma/50;
for cot:=1 to 50 do
begin
if(vetor[cot]> media) then qacima:= qacima +1;
if(vetor[cot]
end;
for con:=1 to 50 do
write(' [',vetor[con],'] ');

writeln('');
writeln('');
writeln('A media dos numeros e ',media);
writeln('O maior numero e ',maior,' e esta na posicao ',pmaior);
writeln('O menor numero e ',menor,' e esta na posicao ',pmenor);
writeln(qacima,' numero estao acima da media');
writeln(qabaixo,' numero estao abaixo da media');

Lista de exercicios - Array - Vetor

Escreva um que leia um vetor G de 20 elementos caractere que representa o gabarito de uma prova. A seguir, para cada um dos 50 alunos da turma, leia o vetor de respostas (R) do aluno e conte o numero de acertos. Mostre o nº de acertos do aluno e uma mensagemAPROVADO, se a nota for maior ou igual a 6; e mostre uma mensagem de REPROVADO, caso contrário.


Program Pzim ;
VAR
certa,soma, cont, cont1,alunos : integer;

G:array[1..20]of char;
R:array[1..20]of char;

Begin
soma:=0;
for cont1:=1 to 5 do
begin
writeln ('digite a resposta da questao ', cont1);
readln (G[cont1]);
end;
writeln ('Gabaritoinserido');
writeln;


for alunos:=1 to 3 do
begin

for cont:=1 to 5 do
begin
writeln ('ALUNO [ ',alunos,' ]Digite a resposta ',cont);
readln (R[cont]);

if (R[cont] = G[cont]) then
soma:=soma+1;
end;
if (soma>=3) then
Writeln ('Aluno ',alunos,' aprovado')
else
Writeln('Aluno ',alunos,' reprovado');
Writeln;
Writeln;
soma:=0;
Writeln('------------------------------------');
end;

End.

Lista de exercicios - Array - Vetor

6 - Escreva um algoritimo que leia um vetor inteiro de 30 posições e crie um segundo vetor, substituindo os valores nulos por 1. mostre os 2 vetores.

ProgramPzim ;
var
num,nulos: array[1..5]ofinteger;
cont:integer;
Begin
for cont:= 1 to 5 do
begin
Writeln('Digite um número:',cont,':');
read(num[cont]);

if num[cont]=0 then
nulos[cont]:=1

else
nulos[cont]:=num[cont];
end;

for cont:=1 to 5 do
writeln('num: [',num[cont],']');

for cont:=1 to 5 do
writeln('nulos: [',nulos[cont],']');


End.

Lista de exercicios - Array - Vetor

5 - Excreva um algoritimo que leia um vetor de 80 elementos inteiros. encontre e mostre o menos elemento e sua posição no vetor.

Program Pzim ;
var
num:array[1..5]of integer;
cont, menor:integer;
Begin
menor:=1000;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
end;
if num
writeln('O menor número é', num[cont]);

Lista de exercicios - Array - Vetor

4 - Escreva um algoritimo que leia um vetor de 50 posições de numeros inteiros e mostre somente os positivos.

Program Pzim ;
var
num:array[1..5]of integer;
cont, i:integer;
positivo:array[1..5]of integer;
Begin
i:= 0;
for cont:=1 to 5 do
begin
writeln('Informe um número:');
readln(num[cont]);
if num[cont]>0 then
begin
i:= i + 1;
positivo[i] := num[cont];
end;
end;
for cont:=1 to i do
writeln('Os números positivos sao:',positivo[cont]);

End.

Lista de exercicios - Array - Vetor

3 - Prepare um programa para calcular as notas da P1, P2 e P3 de 10 alunos, escreva a media final de cada aluno e escreva o total de pessoas aprovadas e reprovadas.

Program Pzim ;
var
P1: array[1..10]of real;
P2: array[1..10]of real;
P3: array[1..10]of real;
media,soma:real;
cont:integer;
Begin
for cont:= 1 to 10 do
begin
writeln('1ª nota:');
read(P1[cont]);
writeln('2ª nota:');
read(P2[cont]);
writeln('3ª nota:');
read(P3[cont]);
soma:=(P1[cont]+P2[cont]+P3[cont]);
media[cont]:=soma/3;
writeln('A media do aluno é:',media);

end;

End.

Lista de exercicios - Array - Vetor

2 - Faça um programa para ler 20 números, calculas a media o maior e o menor número.

Program exercicio2 ;
var
numeros: array[1..20] of integer;
maior,menor,cont,soma: integer;
media: real;
Begin
for cont := 1 to 3 do
begin
writeln('Digite o numero', cont, ':');
readln(numeros[cont]);
if cont = 1
then begin
maior := numeros[1];
menor := numeros[1];
end;
if numeros[cont] > maior
then maior := numeros[cont];
if numeros[cont] < menor
then menor := numeros[cont];
soma := soma + numeros[cont];
end;
media := soma/3;
writeln('O maior número é:', maior);
writeln('O menor número é:', menor);
writeln('A média dos 20 números digitados por você meu camarada é:', media);
End.

Lista de exercicios - Array - Vetor

Faça um programa para ler 10 números e escrever a soma.

Program Pzim ;
var
numeros: array[1..10] of integer;
soma, cont: integer;
Begin
for cont := 1 to 10 do
begin
writeln('Digite o numero -->', cont,':');
readln(numeros[cont]);
end;
for cont := 1 to 10 do
soma := soma + numeros[cont];
writeln('A soma dos 10 números é:', soma);
End.