Решение задачи Minmax 28

#include <stdio.h>
int main(void)
{
    int b=2,num=0,numi=1,maxnum=0,maxi=0,n,i;
 
 
    printf("N:");
    scanf("%i", &n);
    for (i=1; i<=n; ++i){
        printf("%i>",i);
        scanf("%i", &b);
 
        if(b==1) {
            ++num;
            maxi=numi;
        }
        else{
            if (num>=maxnum) maxnum=num;
            numi=i+1;
            num=0;
        }
    }
    if ((num>=maxnum)&&(b==1)){
        maxnum=num;
        maxi=numi;
    }
    printf("%i %i\n",maxi,maxnum);
    return 0;
}

import random

N = random.randrange(2,20)
print("N = ",N)

x_prev = random.randint(0,1)
print(x_prev,end="; ");
if x_prev == 1:
    largest = 1
    temp_largest = 1
    idx = 0
else:
    largest = 0
    temp_largest = 0
    idx = -1
for i in range(1,N):
    x = random.randint(0,1)
    print(x,end="; ");
    if x == x_prev:
        temp_largest += 1
    else:
        if x == 0 and temp_largest >= largest:
            largest = temp_largest
            idx = i - largest
        temp_largest = 1
    x_prev = x
if x == 1 and temp_largest >= largest:
    largest = temp_largest
    idx = N - largest
if idx != -1:
    print("\nLength of Largest Series of 1s:",largest)
    print("Index:",idx)
else:
    print("\n0; 0")
									

program Minmax28;
 
var
  N,i,Num,Numi,MaxNum,Maxi:Integer;
  B:byte;
begin
  B:=5;
  Num:=0;
  Numi:=1;
  MaxNum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(B);
 
     if B=1 then 
      begin
       inc(Num);
       Maxi:=Numi;
      end
     else
      begin
       if Num>=MaxNum then MaxNum:=Num;
        Numi:=i+1;
        Num:=0;
      end;
   end;
   if (Num>=MaxNum) and (B=1) then
       begin
        MaxNum:=Num;
        Maxi:=Numi;
       end;
 
   Writeln(Maxi,' ',MaxNum);
end.