Pascal, Дан целочисленный массив из 30 элементов. Как найти сумму элементов после первого положительного??
Pascal, Дан целочисленный массив из 30 элементов. Как найти сумму элементов после первого положительного??
Гость
Ответ(ы) на вопрос:
Гость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.
Гость// 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)
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
Не нашли ответ?
Похожие вопросы