Exercício 10 While - Pascal

10) Construa um algoritmo que leia vários números inteiros e positivos, calculando ao final da seqüência
a soma e a média desses números. A seqüência termina quando o usuário entrar com um valor
negativo (esse valor não deve fazer parte de nenhum dos cálculos).

program repeat10;
uses crt;
var
cont,num: integer;
soma,media:real;
BEGIN
    While (num>=0) do
        Begin
            Write(cont,' Informe Numero: ');
            readln(num);
                if (num>=0) then
                    Begin                        
                        soma:=soma+num;
                        cont:=cont+1;
                    End;            
        End;
    media:=soma/cont;
  Writeln('Media: ',media:0:2);                
END.

Categories: Pascal , Programação