Вычислить сумму элементов массива, расположенных между первым и последним положительными элементами

[Fitch573]

Вот задание:
В одномерном массиве, состоящем из 20 элементов целого типа (значения элементов массива задать случайными числами из интервала [-15, 15]), вычислить сумму элементов массива, расположенных между первым и последним положительными элементами. Сформировать из этих элементов новый массив.

Начал писать код. Заминочка в принципе в том, как найти первый и последний положительные элементы? Хоть убейте - не пойму.

var i:integer;
        mas : array[0..19] of Integer;
Begin
       Randomize;
       for i:=0 to 19 do mas[i] := Random(30)-15;
       for i:=1 to 20 do
Begin
if 0< mas[i]

[Xeonc]

Напиши цикл, который пробежиться от начала массива, до первого положительного числа(запомни в переменную, какой элемент массива первый положительный). Потом тоже самое - только с конца. А потом пробегись по интервалу между этими двумя элементами

[Fitch573]

Тоесть каждый элемент массива проверять на положительность до тех пор, пока не найдётс положительное число?

[Alex11223]

Ну по-разному можно, попробуй сделать хоть как-нибудь, не бойся

[Xeonc]

Сообщение от Fitch573

Тоесть каждый элемент массива проверять на положительность до тех пор, пока не найдётс положительное число?

да. Если вдруг не справитесь, стукните в аську, напишу программу долларов за 5