Exercico pronto (pascal)

[Guest Vitor miranda]

FPPQL um vetor cm 30 salarios. caucule e imprima a média dos salarios.

Program um;
var
Vsal: array [1..30] of real; { Vsal- Vetor salario}
MedSal,sds,s: real; {MedSal media dos salarios, SDS- Soma dos salarios, S- salario}
begin
sds:=0;
for s := 1 to 30 do
begin
Write ('digite o salario:');readln(Vsal[s]);
sds:= sds + sal[s];
end;
MedSal:= sds/30
writeln(' a media dos salarios é =', Medsal);
end.

Ai amigos tenho prova na faculdade mas tarde, essa questão é certade cair mas acho que cometi algum erro ae.. se alguém puder corrigir e ve se ta certo ae ficarei muito grato!!

Obrigado a todos!

[Guest vitor miranda]

Opsa agora sim

sds:= sds + Vsal;

[Mauricio Quereguine]

Opsa agora sim

sds:= sds + Vsal;

[====================================================================]

Bom, primeiramente meu nome é mauricio quereguine.

Tem basicamente dois error no seu programa...um deles você viu q é o seguinte comando dentro do laço "FOR":

for s := 1 to 30 do

begin

write('Digite o salario : ');

readln(Vsal);

sds := sds + Vsa; {no caso o acrécimo dessa linha}

end;

Mas outro errinho q eu pude perceber foi a utilização da variavel "s" usada no "for"....

Não sei no programa que você usa, mas no turbo pascal não é permitido o uso de variaveis do tipo "real" para

indices para o laço "for".....

A melhor solução neste caso seria você criar uma variavel do tipo "inteiro" para tomar lugar no indice.

Ex:

var indice : integer;

....

for indice := 1 to 30 do

begin

write('Digite o salario : ');

readln(Vsal[indice]);

sds := sds + Vsa[indice]; {no caso o acrécimo dessa linha}

end;

...

[ok][?] - Bom, no tudo mais acho q é só.....qualquer duvida só postar.....

t+.