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.

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