mais um modelo de programa com vetor

Publicado por NewLinuxer 12/12/2005

[ Hits: 6.597 ]

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

soma da diagonal principal de uma matriz

Raiz Quadrada.

Mcd de una serie de numeros

equação de 2º grau

Primo_for


  

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