script para ler um vetor e mostrar o conteúdo

Publicado por NewLinuxer 10/12/2005

[ Hits: 5.603 ]

Download exerc01.pas




é um script onde lê-se o conteúdo de um vetor com oito psições e após isso o progrma mostra na tela os números informados e qm que posições foram informados.

  



Esconder código-fonte

program exercicio01;

uses crt;

var
  valores       : array [1..8] of integer;
  soma, contador: integer;

begin
  clrscr;

  soma:=0;

  for contador := 1 to 8 do
  begin
    write ('Digite o ',contador,'§ n£mero: ');
    readln (valores[contador]);
  end;

  for contador := 1 to 8 do
    soma:=soma+valores[contador];

  writeln;
  writeln('A soma das oito posi‡äes ‚: ', soma);

  readkey;

end.

Scripts recomendados

Calculadora de notas (Pascal)

Maior e menor

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Cadastro de Passagens Aéreas

média de uma turma


  

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