Vetor Inverso
Por: Aline Lage • 26/4/2015 • Trabalho acadêmico • 483 Palavras (2 Páginas) • 404 Visualizações
- Elabore um algoritmo que leia os valores de um vetor de tamanho 5 e que em seguida gera um segundo vetor na ordem inversa do primeiro vetor.
Program VetorInverso ;
var
valor : array [1..5] of real;
x : integer;
Begin
X := 1;
For x := 1 to 5 do
Begin
Write ('Digite o', x, 'º valor:');
Read (Valor [x]);
end;
Write ('O vetor inverso é:');
For x:=5 downto 1 do
Begin
Write (Valor[x]:0:0, ' ');
end;
End.
- Utilizando um vetor construa um algoritimo que leia nome e peso de 10 pessoas. Calcule e escreva:
- A média do pessoa das 10 pessoas.
- Quantas pessoas possuem peso acima da média e o nome dessas pessoas.
Program EX03 ;
var
nome: array [1..10] of string;
peso: array [1..10] of real;
exibirpessoas : string;
x, qtdpessoas : integer;
soma, media : real;
Begin
X := 1;
Soma := 0;
Qtdpessoas := 0;
For x := 1 to 10 do
Begin
Writeln ('Digite o nome da ', x, ' ª pessoa: ');
Read (nome[x]);
Writeln ('Digite o peso da ', x, ' ª pessoa: ');
Read (peso[x]);
soma:=soma + peso[x];
end;
media:=soma/10;
Writeln ('A média dos pesos das pessoas é:', media:0:2);
For x:=1 to 10 do
Begin
If peso[x] > media then
qtdpessoas:= qtdpessoas +1;
end;
Writeln ('Existem ', qtdpessoas,' com peso acima da média.');
For x:=1 to 10 do
Begin
If peso[x] > media then
Begin
exibirpessoas:=nome[x];
end;
Write('As pessoas com peso acima da média são: ', exibirpessoas, ' ');
end;
end.
...