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.
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.
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.