Найти сумму третьего и шестого положительных элементов массива. pascal

Question

Alejandro · Accepted Answer

Number := 0; 
Summa := 0; 
CurNum := 0; 
while (CurNum < ArraySize) and (Number < 6) do 
 begin 
 Inc(CurNum); 
 if A[CurNum] > 0 then 
 begin 
 Inc(Number); 
 if Number in [3, 6] then 
 Summa := Summa + A[CurNum]; 
 end; 
 end; 
if Number < 6 then 
 WriteLn('В массиве нет 6 положительных элементов') 
else 
 WriteLn('Сумма = ', Summa);

Ванюшка · Answer

for i :=1 to length(arr) do if (arr[ i ] > 0) then begin inc(c); if (c = 3) then s := arr[ i ]; if (c = 6) then begin s := s + arr[ i ]; break; end;