Задачка одномерного массива

[Клеом]

В одномерном массиве, состоящем из 10 целых элементов, вычислить: сумму элементов массива, расположенных после первого положительного элемента.

Заранее большое спасибо!!!

[NeshSoft]

var  nachalo:boolean;
    mas: array [1..10] of integer;
    i,sum:integer;
begin
randomize;
for i:=1 to 10 do mas[i]:=5-random(11);
nachalo:=false;
sum:=0;
for i:=1 to 10 do 
    begin
    if mas[i]>0 then nachalo:=true;
    if nachalo then sum:=sum+mas[i];
    end;
end;

[ОДИНОЧЕСТВО В СЕТИ]

судя по темке в разделе для спамеров ему на с++ надо!