Pascal

[Defender42]

Условие:В массиве состоящем из n элементов, вычислить сумму элементов массива расположенных между первым и втором положительным элементов.

Первый элемент нахожу,а насчет второго не получается, можете объяснить как найти второй элемент массива

Заранее спасибо

[Chudo4258]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A:array[1..20]of integer;
    i,n,k,i1,i2,S:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
readln(n);
for i:=1 to n do
 readln(a[i]);

k:=0;
for i:=1 to n do
 begin
  if a[i]>0 then begin
                          inc(k);
                          i2:=i;
                     end;
  if k=2 then break;
  i1:=i2;
 end;

S:=0;
if k=2 then begin
        for i:=i1+1 to i2-1 do
         S:=S+a[i];
        writeln('S= ',S);
            end
       else writeln('Невозможно найти сумму');
readln
end.