По разделам



Задача Minmax 27


Дано целое число N и набор из N целых чисел, содержащий только
нули и единицы. Найти номер элемента, с которого начинается самая
длинная последовательность одинаковых чисел, и количество элементов
в этой последовательности. Если таких последовательностей несколько,
то вывести номер первой из них.

Код (C/C++)

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

Код (Python)

import random

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

x_prev = random.randint(0,1)
print(x_prev,end="; ");
largest = 1
temp_largest = 1
idx = 0
for i in range(1,N):
    x = random.randint(0,1)
    print(x,end="; ");
    if x == x_prev:
        temp_largest += 1
    else:
        if temp_largest > largest:
            largest = temp_largest
            idx = i - largest
        temp_largest = 1
    x_prev = x
if temp_largest > largest:
    largest = temp_largest
    idx = N - largest

print("\nLength of Largest Series:",largest)
print("Index:",idx)
									

Код (Pascal)

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




Minmax. Абрамян
Minmax 1 Просмотров: 39
Minmax 2 Просмотров: 29
Minmax 3 Просмотров: 21
Minmax 4 Просмотров: 19
Minmax 5 Просмотров: 30
Minmax 6 Просмотров: 37
Minmax 7 Просмотров: 34
Minmax 8 Просмотров: 19
Minmax 9 Просмотров: 28
Minmax 10 Просмотров: 18
Minmax 11 Просмотров: 48
Minmax 12 Просмотров: 37
Minmax 13 Просмотров: 34
Minmax 14 Просмотров: 25
Minmax 15 Просмотров: 28
Minmax 16 Просмотров: 23
Minmax 17 Просмотров: 27
Minmax 18 Просмотров: 28
Minmax 19 Просмотров: 22
Minmax 20 Просмотров: 35
Minmax 21 Просмотров: 36
Minmax 22 Просмотров: 20
Minmax 23 Просмотров: 26
Minmax 24 Просмотров: 31
Minmax 25 Просмотров: 17
Minmax 26 Просмотров: 41
Minmax 27 Просмотров: 29
Minmax 28 Просмотров: 27
Minmax 29 Просмотров: 31
Minmax 30 Просмотров: 29

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться