Задача по одномерным массивам

[ArturNeo]

Суммировать числа из массива до тех пор, пока не встретиться число 2. Вывести получившуюся сумму. Если двойка не встретилась вывести текст «Двойки нет».
Например, если А={7,4,-3,2,5,-2,1}, результат: 7+4-3=8.

Сделал вывод массива и ее сумма. Как сделать чтобы сумма высчитывалось до 2?????Знаю что подобная задача есть решенная на рунете, но на паскале её нет!

program zafanie4v6;
var
a: array[1..10] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln;
writeln;
write('[');
for i:=1 to 10 do
    begin
    a[i]:=random(20)-10;
    write(a[i], ' ');
    sum:=sum+a[i];
    end;
writeln(']');
write('Summa: ',sum);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Sum:=0;
For i:=1 to n do
  If a[i]=2 then 
     Break
   Else
      Sum:=sum+a[i];

Уберите из заполнения массива подсчет суммы. Нужно отдельно считать.

[type_Oleg]

В цикле for используйте if a[и]=2... и Break
Или вместо for испльзйте while или repeat

[ArturNeo]

Сообщение от ZX Spectrum-128

Sum:=0;
For i:=1 to n do
  If a[i]=2 then 
     Break
   Else
      Sum:=sum+a[i];

Уберите из заполнения массива подсчет суммы. Нужно отдельно считать.

Как все просто оказалось! Спасибо за помощь!