Questão 2 (Array - Vetor)

Faça um programa para ler 20 numeros, calcular a media o maior e o menor número.

Program Questao2 ;
Var
num, maior, menor, cont, soma : integer;
media : real;

vetor:array[1..20]of integer;


Begin
cont:=0;
for cont:=1 to 3 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
if (vetor[cont] >= maior) then
maior:=vetor[cont];
if (vetor[cont]<= menor) then
menor:=vetor[cont];
end;
media:=soma/3;
Writeln ('O maior numero e ', maior);
writeln ('O menor numero e ', menor);
writeln ('A media é ', media);

End.

Questão 1 (Array - Vetor)

Faça um programa para ler 10 numeros e escrever a soma.

Program Questao2 ;
Var
num, cont, soma : integer;

vetor:array[1..10]of integer;


Begin
cont:=0;
for cont:=1 to 10 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
end;
writeln ('A soma é ', soma);

End.

Questão 2 (Para - For)

Questão 2 - Faça um programa para apontar os resultados de uma pesquisa eleitoral para Presidente da república de Kneippópolis, o mais novo país da América do Sul. Os candidatos são:

Program Pzim ;
VAR
voto, zico, kneipp, obina, geninho, perentual : real;
v : integer;
Begin
zico:=0;
kneipp:=0;
obina:=0;
geninho:=0;

Writeln ('tecle 1 para Zico');
writeln ('tecle 2 para Kneipp');
writeln ('tecle 3 para obina');
writeln ('tecle 4 para geninho');
for v := 1 to 10 do
begin
Writeln (' Escreva seu voto');
readln (voto);
end;

if (voto = 1) then
zico := zico +1;
Writeln ('O total de votos para Zico é');
Writeln (zico);

if (voto = 2) then
kneipp := kneipp +1;
Writeln ('O total de votos para Kneipp é');
Writeln (kneipp);

if (voto = 3) then
obina := obina +1;
Writeln ('O total de votos para Obina é');
Writeln (Obina);

if (voto = 4) then
geninho := geninho +1;
Writeln ('O total de votos para Geninho é');
Writeln (geninho);

percentual := geninho + obina + kneipp + zico / 100;
Writeln ('o percentual é' percentual);

End.

Questão 1 (Para - For)

Questão 1 - Faça um algoritmo e a seguir passe-o para pascal que leia o nome e peso de 10 pessoas e a seguir calcule o maior peso, o mais leve, e a média de peso. Escreva o nome da pessoa com maior peso.

Program Pzim ;
VAR
nome, nmaior, nmenor, f : integer;
peso, pmaior, pmenor, pmedia : real;

Begin
for f := 1 to 10 do
begin
Writeln ('Escreva seu nome');
readln (nome);
Writeln ('Escreva seu peso');
readln (peso);
end;

pmenor := peso;
if (pmenor <= peso) then
writeln ('o menor peso é,');
writeln (pmenor);
Writeln ('o nome é');
writeln (nome);
if (pmaior >= peso) then
writeln ('o maior peso é');
writeln (pmaior);
writeln ('o nome é');
writeln (nome);

pmedia := (peso + peso) / 10;
writeln ('a media é,');
writeln (pmedia);
End.