Pular para o conteúdo

script para ler um vetor e mostrar o conteúdo

é 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.
NewLinuxer wtet
Hits: 5.920 Categoria: Pascal/Kylix Subcategoria: Introdução
  • Download
  • Nova versão
  • Indicar
  • Denunciar

Descrição

é 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.
Download exerc01.pas Enviar nova versão

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.

Media dos Alunos

Calculadora completa com porcentagem(Lazarus)

Menu

média dos numeros informados em posiçoes pares em um vetor

Script Copa do Mundo

Nenhum comentário foi encontrado.

Contribuir com comentário

Entre na sua conta para comentar.