Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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.