program summa;
var
  a: array [1..100] of integer;
  i, sum, n: integer;
begin
  Randomize;
  Write('Введите размер массива: ');
  Readln(n);
  Writeln('Массив:');
  for i := 1 to n do
  begin
    a[i] := Random(20) - random(17);
    Write(a[i]:4);
  end;
  Writeln;
  sum:=0;
  for i := 1 to n do
///решение
end.