Calculando a média de 5 números usando só 2 variáveis

Alfa-GTA · 24 de junho de 2010

Faça um programa que leia 5 números reais e calcule a média desses números, usando apenas duas variáveis.

????????

Cheguei a isso no máximo, mas duas variáveis estão complicando minha vida:

var

    conta:integer;
     media,num,soma:real;

Begin

     Clrscr;
     conta := 0;
     soma  := 0;
     Writeln ('Digite 5 numeros');
     While conta < 5 do
           Begin
                read (num);
                soma  := soma + num;
                conta := conta + 1;
           End;
     media := (soma / 5);

         Writeln ('A media ‚');
         Writeln (media);
End.

OvEr_BuRn · 24 de junho de 2010

Acredito que seja assim:


  var
    num, soma : real;

    begin
      soma := 0;

      Clrscr;

      Writeln('Digite o 1o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 2o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 3o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 4o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 5o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('A media e: ', soma/5:3:2);

      ReadKey;
    end;

Foi a única maneira que achei usando só duas variáveis.

Abraço.

Alfa-GTA · 25 de junho de 2010

Acredito que seja assim:


  var
    num, soma : real;

    begin
      soma := 0;

      Clrscr;

      Writeln('Digite o 1o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 2o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 3o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 4o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('Digite o 5o. número: ');
      Readln(num);
      soma := soma + num;

      Writeln('A media e: ', soma/5:3:2);

      ReadKey;
    end;