Надо найти второй положительный элемент массива. Вот мои наработки:
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.