<span>индекс последнего отрицательного элемента
P.S. в Пайтоне списки индексируются с 0, т.е. 0 <= i <= n - 1</span>
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Program Z;
var x, y: real;
h:integer;
Begin
h:=2;
x:=-5;
while (x<=4) do begin
y:=2*sqr(x)-3*x+4;
writeln('y=',y, ' ', 'x=', x);
x:=x+h;
end;
End.
А), д),е) истинно
Остальные - ложь