N = int(input()) if N == 1:
exit(0)
bacteria = [0] * N
for i in range(0, N):
bacteria[i] = int(input())
prefix_sum = [bacteria[0]] * N
for i in range(1, N):
prefix_sum[i] = prefix_sum[i - 1] + bacteria[i]
ans = [0] * N
if bacteria[N-1] > bacteria[0]:
ans[N - 1] = 1
for i in reversed(range(2, N)):
if ans[i] == 1:
prev = i - 1
if prefix_sum[prev] > bacteria[i] and bacteria[0] < bacteria[prev]:
ans[prev] = 1
for i in range(N):
print(ans[i])

набираю 90 что не так до 100 доделать

Смотрите объяснение

Объяснение:

использовать Чертежник

алг

нач

поднять перо

сместиться в точку(2,5)

опустить перо

сместиться на вектор(2,0)

сместиться на вектор(4,0)

сместиться на вектор(0,10)

сместиться на вектор(5,10)

сместиться на вектор(9,0)

сместиться на вектор(11,0)

сместиться на вектор(2,-4)

сместиться на вектор(0,-4)

сместиться на вектор(0,-5)

сместиться на вектор(-4,0)

сместиться на вектор(0,-7)

сместиться на вектор(2,0)

сместиться на вектор(4,0)

сместиться на вектор(2,0)

сместиться на вектор(0,5)

сместиться на вектор(0,15)

сместиться на вектор(0,5)

сместиться на вектор(0,5)

сместиться на вектор(2,3)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,-2)

сместиться на вектор(0,-4)

сместиться на вектор(0,-2)

сместиться на вектор(3,-2)

сместиться на вектор(-4,2)

сместиться на вектор(-4,2)

сместиться на вектор(-4,0)

сместиться на вектор(-4,0)

сместиться на вектор(-4,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-1,0)

сместиться на вектор(-1,0)

сместиться на вектор(-4,-4)

сместиться на вектор(0,5)

сместиться на вектор(0,6)

сместиться на вектор(-2,-4)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,2)

сместиться на вектор(0,-5)

сместиться на вектор(0,-5)

сместиться на вектор(5,-1)

сместиться на вектор(5,1)

сместиться на вектор(2,1)

сместиться на вектор(-5,-5)

сместиться на вектор(0,-10)

сместиться на вектор(0,-2)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(0,-5)

сместиться на вектор(0,-1)

сместиться на вектор(3,0)

опустить перо

сместиться на вектор(4,0)

поднять перо

сместиться на вектор(-6,0)

сместиться на вектор(-1,0)

сместиться на вектор(0,5)

сместиться на вектор(0,1)

сместиться на вектор(4,0)

сместиться на вектор(0,12)

сместиться на вектор(4,5)

сместиться на вектор(-2,0)

опустить перо

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(-2,0)

сместиться на вектор(3,0)

сместиться на вектор(0,2)

поднять перо

сместиться на вектор(2,0)

опустить перо

сместиться на вектор(0,3)

поднять перо

сместиться на вектор(-4,0)

опустить перо

сместиться на вектор(0,-3)  

кон

Type
  mas=array[,] of integer;
var
  i,j,ik,jk,k,max:integer;
  a:mas;
  b:array[0..5]of integer;//вс массив
begin
setlength(a,5,6);
writeln('Массив:');
// в массиве b минимальное число строки
for i:=0 to 4 do
  begin
  for j:=0 to 5 do
    begin
    a[i,j]:=random(-10,10);
    write(a[i,j]:4);
    if j=0 then b[i]:=a[i,0];
    if a[i,j]<b[i] then b[i]:=a[i,j];
    end;
  writeln;
  end;
writeln('Замена минимального противоположным:');
for i:=0 to 4 do
  begin
  for j:=0 to 5 do
    begin
    if a[i,j]=b[i] then a[i,j]:=-a[i,j];
    write(a[i,j]:4);
    end;
  writeln;
  end;  
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 5 do b[i]:=0;
for i:=0 to 4 do
  for j:=1 to 5 do
    if a[i,j]>max then  max:=a[i,j];
for i:=0 to 4 do
  for j:=0 to 5 do
    if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
  begin
    if b[j]=1 then
      begin
      for ik:=0 to 4 do a[ik,jk]:=1;
      jk:=jk-1;
      end;
    for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
    jk:=jk-1;
  end;
for i:=0 to 4 do
  begin
  for j:=0 to k do  write(a[i,j]:4);
  writeln;
  end;  
writeln('Удаление первой строки:');
for i:=0 to 3 do
  for j:=0 to k do
    a[i,j]:=a[i+1,j];
setlength(a,4,k+1);
for i:=0 to 3 do
  begin
  for j:=0 to k do
    write(a[i,j]:4);
  writeln;
  end;  
writeln('Обмен столбцов:');
for i:=0 to 3 do
  begin
  b[i]:=a[i,k-1];
  a[i,k-1]:=a[i,k];
  a[i,k]:=b[i];
  end;
for i:=0 to 3 do
  begin
  for j:=0 to k do  write(a[i,j]:4);
  writeln;
  end;
end.