Если чисто алгоритм, то все просто:
...
Summ := 0;
for i := 0 to MAX do begin
__if SomeArray[i] = 0 then Break;
__if Function(SomeArray[i]) then Summ := Summ + SomeArray[i];
end;
...
MAX - длина массива
SomeArray - сам массив
Function - булевая функция, которая возвращает true в случае если число четное (просто забыл название этой функции)
Summ - сумма
__________________
LifeStream
Lin Kuei
|