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.
Не нашли ответ?
Похожие вопросы