Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 8. Найти сумму элементов участка массива, начиная с первого положительного и кончая вторым положительным элементом.

  • Как то так:
    var  a: array[1..1000] of integer; 
    b: array [1..2] of integer; 
    i, j, sum: integer;
    begin 
     for i := 1 to 1000 do    
    a[i] := random(13) - 5; 
     j := 1; 
     for i := 1 to 1000 do   begin   
    if j = 3 then break;   
    if a[i] > 0 then begin b[j] := i;inc(j); end; 
    end; 
     for i := b[1] to b[2] do    sum := sum + a[i]; 
    writeln(sum);
    end.