algoritmo pascal alguem sabe como fazer

[hewerton 0]

Escrever um algoritmo que leia um número não determinado de valores e calcule a média aritmética dos valores lidos, a quantidade de valores positivos, a quantidade de valores negativos e o percentual de valores negativos e positivos. Mostre os resultados.

[Julien.Sorel 0]

Olá Hewerton,

 

Não tenho VisuAlg nesta máquina, então só consegui fazer em Pascal; espero que ajude.

 

Program pgmPascal;
Uses crt;
    Var
        Count_P, Count_N: integer;
        Sum_P, Sum_N, Num: real;
        strRes: string;

Begin
clrscr;
    Count_P := 0;
    Count_N := 0;
    Sum_P := 0;
    Sum_N := 0;
    strRes := 'S';
    While (strRes = 'S') or (strRes = 's') Do
    Begin
        Write ('Informe um Número: ');
        Readln (Num);
        If (Num < 0) Then
        Begin
            Sum_N := Sum_N + Num;
            Count_N := Count_N + 1;
        End
        Else
        Begin
            Sum_P := Sum_P + Num;
            Count_P := Count_P + 1;
        End;
        Writeln ('Deseja Continuar? ');
        Write ('[S/N] ');
        Readln (strRes);
        Writeln (' ');
    End;
    Writeln (' ');
    Writeln ('::: Relatório de Preenchimento :::');
    Writeln ('Quantidade de Números.....: ', Count_P + Count_N);
    Writeln ('Valores Positivos.........: ', Count_P);
    Writeln ('Percentual Positivo.......: ', (Count_P/(Count_P + Count_N)*100):2:2);
    Writeln ('Soma dos Positivos........: ', Sum_P:2:2);
    Writeln ('Valores Negativos.........: ', Count_N);
    Writeln ('Percentual Negativo.......: ', Count_N/(Count_P + Count_N)*100:2:2);
    Writeln ('Soma dos Negativos........: ', Sum_N:2:2);
    Readln;
End

 

 

PS: recomendo fazer uma busca em alguns exemplos de laço - Repetir, Fazer,... - neste fórum, eles irão lhe ajudar nas próximas dúvidas.

 

PPS: acabei de perceber que você buscava a informação em Pascal; então, aí está...

 

 

Sem mais,

 

Julien Sorel