script para ler um vetor e mostrar o conteúdo

Publicado por NewLinuxer 10/12/2005

[ Hits: 5.586 ]

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

programa pra carregear duas matrizes e achar o maior

Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus

soma da diagonal principal de uma matriz

Crivo de Eratóstenes Simples em Ada 95

Mostrar maior e menor


  

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