mais um modelo de programa com vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 6.604 ]

Download exerc03.pas




mais um dos exemplos para demonstrar o funcionamento de vetores no pascal.
Neste é Solicitado ao usuario 6 valores, os quais devem ser armazenados num único vetor, apresente o maior valor e a posição em que o mesmo foi informado

  



Esconder código-fonte

{Solicitando ao usuario 6 valores, os quais devem ser armazenados num £nico ve-
tor, apresente o maior valor e a posi‡Æo em que o mesmo foi informado.}

Program exercicio03;

uses crt;

Var
  posicao : array[1..6] of integer;
  numero, contador : integer;

Begin
  clrscr;

  For contador := 1 To 6 do
  begin
    write('Digite o ',contador:2,'§ n£mero: ');
    readln (posicao[contador]);
  end;

  numero:= posicao[1];

  For contador := 2 to 6 do
  begin
    if numero < posicao[contador] then
      numero:= posicao[contador];
  end;

  writeln;
  writeln('O maior número é: ', numero);
  writeln;

  For contador := 1 to 6 do
  begin
    if numero = posicao[contador] then
      writeln('Na posi‡Æo: ',contador:2);
  end;

  Readkey;

end.

Scripts recomendados

encontrar o maior e o menor valor em um vetor

Visualizador de imagem Pascal/Lazarus

cadastro de multiplos clientes com registro

soma da diagonal principal de uma matriz

calculo da somatoria da diagonal principal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts