(Resolvido) AJUDA NO PASCAL

[di_sakai]

AJUDA AI FELLAS O PROGRAMA TA FUNCIONANO POREM NA HORA DE MOSTRAR O MAIOR CONSUMO E MENOR CONSUMO OS VALORES FICAM IGUAIS AONDE QUE ESTA O ERRO QUE NÃO CONSIGO ACHAR

DESDE já AGRADEÇO!!!

program teste_looping_1;

uses WinCrt;

var

numero, contador, consumo, preço, soma,maior, menor:integer;

total:integer;

begin

contador := 1;

soma := 1;

write ('Digite o numero do consumidor ');

readln (numero);

write ('Digite a quantidade do kWh consumido durante o mes ');

readln (consumo);

maior := consumo;

menor := consumo;

while (numero <= 999) do begin

Contador := contador +1;

write ('Digite o preço do kWh ');

readln (preço);

total :=preço * consumo;

writeln ('total a pagar pelo consumidor Numero: ', numero, '= R$', total);

writeln;

soma := soma + total;

writeln ('Digite o numero do consumidor ');

readln (numero);

writeln ('Digite a quantidade do kWh consumido durante o mes ');

readln (consumo);

writeln ('O maior consumo verificado foi' ,maior,',','KWh');

writeln ('O menor consumo verificado foi' ,menor,',','KWh');

writeln ('A media geral de consumo da cidade e:' ,soma/contador);

end;

if (consumo > maior)then begin

maior := consumo;

end;

if (consumo < menor)then begin

menor := consumo;

end;

end.

[Jhonas]

POREM NA HORA DE MOSTRAR O MAIOR CONSUMO E MENOR CONSUMO OS VALORES FICAM IGUAIS AONDE QUE ESTA O ERRO QUE NÃO CONSIGO ACHAR

maior := consumo;

menor := consumo;

abraço

[di_sakai]

por exmplo:

o consumo 1 foi : 45

comsumo 2 foi : 59

ai quando passar de 999 por exemplo

consumo 1055 fois 695

na hora de mostrar todos valores ele exibe o maior e menor no programa ta mostrando 695 de maio e 695 de menor mas o certo seria se menor fosse igual a 45 !

não conseguindo fazer que reconheça o menor valor

[Jhonas]

faça as modificações que forem necessarias

var
numero, contador, consumo, preço, soma,maior, menor:integer;
total:integer;
begin
   contador := 0;
   soma := 0;
   write ('Digite o numero do consumidor ');
   readln (numero);
   write ('Digite a quantidade do kWh consumido durante o mes ');
   readln (consumo);

   maior := consumo;
   menor := consumo;

   while (numero <= 999) do begin
      Contador := contador +1;
      write ('Digite o preço do kWh ');
      readln (preço);
      total :=preço * consumo;
      writeln ('total a pagar pelo consumidor Numero: ', numero, '= R$', total);
      writeln;
      soma := soma + total;

      writeln ('Digite o numero do consumidor ');
      readln (numero);
      writeln ('Digite a quantidade do kWh consumido durante o mes ');
      readln (consumo);

      if (consumo > maior)then begin
         maior := consumo;
      end;

      if (consumo < menor)then begin
         menor := consumo;
      end;

   end;

   writeln ('O maior consumo verificado foi' ,maior,',',' KWh');
   writeln ('O menor consumo verificado foi' ,menor,',',' KWh');
   writeln ('A media geral de consumo da cidade e:' ,soma/contador);

end.

abraço

[di_sakai]

Valeu mesmo cara!

muito obrigado por me ajudar! desculpa o incomodo!

Abraços