script para ler um vetor e mostrar o conteúdo

Publicado por NewLinuxer 10/12/2005

[ Hits: 5.749 ]

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

Matriz simétrica

armazenar o nome de um aluno e suas notas

cadastro de multiplos clientes com registro

Cálculadora de décimo terceiro

Calculadora de décimo terceiro no Lazarus


  

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