TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Vetor Inverso

Por:   •  26/4/2015  •  Trabalho acadêmico  •  483 Palavras (2 Páginas)  •  369 Visualizações

Página 1 de 2
  1. 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.

  1. Utilizando um vetor construa um algoritimo que leia nome e peso de 10 pessoas. Calcule e escreva:
  1. A média do pessoa das 10 pessoas.
  2. 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.

...

Baixar como (para membros premium)  txt (1.8 Kb)   pdf (30.7 Kb)   docx (11.1 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com