Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal,estou com uma duvida nesse exercicioEscrever um programa que leia 10 números inteiros para um vetor e calcule a média dos valoreseu to fazendo assim,sera que ta certo? e como calcula a media mesmo, é que eu esquecihehehe program vetor;uses Crt;var num:array[1..10] of integer; Begin Clrscr; Writeln('Entre com o primeiro numero']; readln(num[1]); Writeln('Entre com o segundo numero'); readln(num[2]); Writeln('Entre com o terceiro numero'); readln(num[3]); Writeln('Entre com o quarto numero'); readln(num[4]); Writeln('Entre com o quinto numero'); readln(num[5]); Writeln('Entre com o sexto numero'); readln(num[6]); Writeln('Entre com o setimo numero'); readln(num[7]); Writeln('Entre com o oitavo numero'); readln(num[8]); Writeln('Entre com o nono numero'); readln(num[9]); Writeln('Entre com o decimo numero'); readln(num[10]); End.Obrigada
Quel vou te ajudar.
Olha você fez 10 vezes a leitura, tudo bem, mais isso poderia estar em uma repetição tipo o for num ahca?
A media é calculada pela soma dos valores dividida pela quantidade de valores lidos, eu fiz um codigo para você e comentado. da uma olhadinha ai.
program vetor;uses Crt;{ -- Declaração de Vadiáveis -- }varnum:array[1..10] of integer;soma, media : real;i : integer;BeginClrscr;soma := 0;{ Repetição para preencher o vetor }for i:=1 to 10 dobegin Writeln('Entre com a posicao ',i,' do vetor: '); readln(num[i]); {faz a soma de todos os valores lidos para fazer a media} soma := soma + num[i];end;{agora vamos calcular a media, lembrando que a media e a soma de todos os valordividido pela quantidade de elementos, ou seja soma divido por 10}media := soma / 10;writeln('A media do vetor e: ',media);End.