Одномерные массивы.

[Fitch573]

Если не затруднит, можете помочь с написанием кода?

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



По интернету немного пошарился, нашёл такое задание:

Дан одномерный массив, состоящий из 10 элементов. 3начениями элементов массива являются целые числа, находящиеся в промежутке от -100 до 100. Найти максимальный из отрицательных элементов и заменить его обратной величиной.

И код:

var i:integer;
        mas : array[0..9] of Integer;
        max : array[1..2] of Integer;
        min : array[1..2] of Integer;
Begin
       Randomize;
       for i:=0 to 9 do mas[i] := Random(200)-100;
       for i:=0 to 8 do
          Begin
                   if mas[i] < mas[i+1] then
                      Begin
                               min[1] := mas[i];
                               min[2] := i;
                      End
                      Else 
                              min[1] := mas[i+1];
                              min[2] := i + 1;
                      End;
                   
                   if mas[i] > mas[i+1] then
                      Begin
                               max[1] := mas[i];
                               max[2] := i;
                      End
                      Else 
                              max[1] := mas[i+1];
                              max[2] := i + 1;
                      End;
             End;

           mas[min[2]] := max[1];
           max[max[2]] := min[1];
End.

Я не очень понимаю, где задавать интервал и количество элементов.

[Mad_Cat]

интервал

Random(200)-100;

количество

array[0..9] of Integer;

[Fitch573]

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

интервал

Random(200)-100;

количество

array[0..9] of Integer;

Тоесть в моём случае это будет:

Random(30)-15;

array[0..19] of Integer;

?