Jordan Reis 0 Denunciar post Postado Maio 22, 2009 COMO FAZER O PROGRAMA PARAR DE SOMAR QUANDO CHEGAR A 100, SE EU USO O WHILE E EM QUE LINHA EU VOU INSERIR? program somar; uses wincrt; type vetor = array[1..10] of integer; var elementos:vetor; i,j,soma,aux:integer; begin soma:=0; for i:= 1 to 10 do begin readln(elementos[i]); soma:= soma+ elementos[i]; end; writeln('A soma é: ',soma); for i:= 1 to 9 do for j:= i+1 to 10 do begin if (elementos[i] > elementos[j]) then begin aux:=elementos[i]; elementos[i]:=elementos[j]; elementos[j]:= aux; end; end; for i:= 1 to 10 do writeln(elementos[i]); end. Compartilhar este post Link para o post Compartilhar em outros sites
quitZAUMMM 18 Denunciar post Postado Maio 22, 2009 é soh no seu laço for, qnd a soma for 100 ou maior q isso da um break --- Título Editado: PROGRAMA EM PASCAL, PARAR DE SOMAR QUANDO CHEGAR A 100 http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Fazer laço parar quando soma chegar a 100 Compartilhar este post Link para o post Compartilhar em outros sites