Pascal, Дан целочисленный массив из 30 элементов. Как найти сумму элементов после первого...

Question

Pascal, Дан целочисленный массив из 30 элементов. Как найти сумму элементов после первого положительного??

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(30,-99,99); a.Println;
  Writeln('s=',a.SkipWhile(x->x<=0).Skip(1).Sum)<br>end.

Тестовое решение:
-86 -3 -66 19 87 46 44 73 17 -18 37 83 31 33 15 -71 -26 30 -17 24 10 45 3 84 8 82 -88 81 8 56
s=677

Answer 2

Const n= 30;
var a:array[1..n] of integer;
i,s,f:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to n do begin
  a[i]:=random(-50,51);
  if (not flag) and (a[i]>0) then begin
    flag :=true; f:=i;
  end;
  write(a[i]:4);
end;
writeln;

for i:=f+1 to n do s:=s+a[i];
writeln(s);
end.