Fazer laço parar quando soma chegar a 100

[Jordan Reis 0]

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.

[quitZAUMMM 18]

é 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