Отыскать сумму пяти элементов массива случайными числами из промежутка [-20;20] Массивом

Массива, состоящего из 5 элементов, либо 5 каких-то определенных частей?

Из 5 случайных чисел

На всякий случай уточню, массив состоит всего из 5 частей. И необходимо найти сумму этих частей. Либо в массиве частей может быть и 20, и необходимо отыскать сумму, к примеру, первого, второго, пятого, десятого, и семнадцатого?

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(41)-20;
    Write(' ',A[i]);
    S:=S+1;
    End;
WriteLn;
WriteLn('Сумма частей: ',S);
End.