По разделам

 

Решение задачи Array 130


Дан целочисленный массив размера N. Преобразовать массив, увеличив все его серии наибольшей длины на один элемент (определение серии дано в задании Array116).

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int a[20];
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int len=1,maxlen=1,endmaxseries=1;
 
    for (i=1; i<n; ++i){
        if (a[i-1]!=a[i]) {
            if (len>=maxlen) maxlen=len;
            len=0;
        }
        ++len;
    }
 
    int i2;
 
    for (i=1; i<n; ++i){
        if (a[i-1]!=a[i]) {
            if (len==maxlen) {
                for (i2=++n-1; i2>i;--i2) a[i2]=a[i2-1];
                ++i;
            }
            len=0;
        }
        ++len;
    }
 
 
 
   for (i=0; i<n;++i) printf("a  %i : %i\n",i+1,a[i]);
 
    return 0;
}

Код (Pascal)

program Array130;
var
 a,CountSeries,temp : array [1..20] of real;
 LengthSeries : array [1..20] of integer;
 N,i,i2,i3,NumSeries,MaxLengthSeries: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
 NumSeries:=1;
 LengthSeries[NumSeries]:=1;
 MaxLengthSeries:=NumSeries;
 CountSeries[NumSeries]:=a[1];
 
 for i:=2 to N do
  begin
   if a[i-1]=a[i] then LengthSeries[NumSeries]:=LengthSeries[NumSeries]+1
   else
    begin
     if LengthSeries[NumSeries]>LengthSeries[MaxLengthSeries] then MaxLengthSeries:=NumSeries;
     inc(NumSeries);
     LengthSeries[NumSeries]:=1;
     CountSeries[NumSeries]:=a[i];
    end;
  end;
  if LengthSeries[NumSeries]>LengthSeries[MaxLengthSeries] then MaxLengthSeries:=NumSeries;
 
 i2:=LengthSeries[MaxLengthSeries];
 for i:=1 to NumSeries do
   if LengthSeries[i] = i2 then LengthSeries[i]:=LengthSeries[i]+1;
 
 i3:=0;
 
 for i:=1 to NumSeries do
   for i2:=1 to LengthSeries[i] do
    begin
     inc(i3);
     temp[i3]:=CountSeries[i];
    end;
 
 
 a:=temp;
 for i:=1 to i3 do writeln(a[i] );
end.
									




Array. Абрамян
Array 1 Просмотров: 62
Array 2 Просмотров: 48
Array 3 Просмотров: 41
Array 4 Просмотров: 39
Array 5 Просмотров: 42
Array 6 Просмотров: 50
Array 7 Просмотров: 38
Array 8 Просмотров: 37
Array 9 Просмотров: 38
Array 10 Просмотров: 43
Array 11 Просмотров: 45
Array 12 Просмотров: 49
Array 13 Просмотров: 43
Array 14 Просмотров: 46
Array 15 Просмотров: 47
Array 16 Просмотров: 59
Array 17 Просмотров: 51
Array 18 Просмотров: 48
Array 19 Просмотров: 36
Array 20 Просмотров: 37
Array 21 Просмотров: 37
Array 22 Просмотров: 51
Array 23 Просмотров: 30
Array 24 Просмотров: 34
Array 25 Просмотров: 32
Array 26 Просмотров: 38
Array 27 Просмотров: 55
Array 28 Просмотров: 40
Array 29 Просмотров: 42
Array 30 Просмотров: 45
Array 31 Просмотров: 28
Array 32 Просмотров: 34
Array 33 Просмотров: 43
Array 34 Просмотров: 42
Array 35 Просмотров: 40
Array 36 Просмотров: 43
Array 37 Просмотров: 36
Array 38 Просмотров: 39
Array 39 Просмотров: 35
Array 40 Просмотров: 42
Array 41 Просмотров: 43
Array 42 Просмотров: 36
Array 43 Просмотров: 37
Array 44 Просмотров: 25
Array 45 Просмотров: 33
Array 46 Просмотров: 29
Array 47 Просмотров: 40
Array 48 Просмотров: 39
Array 49 Просмотров: 27
Array 50 Просмотров: 46
Array 51 Просмотров: 39
Array 52 Просмотров: 32
Array 53 Просмотров: 40
Array 54 Просмотров: 42
Array 55 Просмотров: 42
Array 56 Просмотров: 40
Array 57 Просмотров: 39
Array 58 Просмотров: 44
Array 59 Просмотров: 44
Array 60 Просмотров: 37
Array 61 Просмотров: 30
Array 62 Просмотров: 35
Array 63 Просмотров: 52
Array 64 Просмотров: 47
Array 65 Просмотров: 41
Array 66 Просмотров: 47
Array 67 Просмотров: 44
Array 68 Просмотров: 26
Array 69 Просмотров: 34
Array 70 Просмотров: 48
Array 71 Просмотров: 55
Array 72 Просмотров: 32
Array 73 Просмотров: 29
Array 74 Просмотров: 41
Array 75 Просмотров: 51
Array 76 Просмотров: 39
Array 77 Просмотров: 33
Array 78 Просмотров: 50
Array 79 Просмотров: 36
Array 80 Просмотров: 38
Array 81 Просмотров: 44
Array 82 Просмотров: 29
Array 83 Просмотров: 34
Array 84 Просмотров: 29
Array 85 Просмотров: 42
Array 86 Просмотров: 36
Array 87 Просмотров: 47
Array 88 Просмотров: 49
Array 89 Просмотров: 36
Array 90 Просмотров: 39
Array 91 Просмотров: 52
Array 92 Просмотров: 43
Array 93 Просмотров: 42
Array 94 Просмотров: 36
Array 95 Просмотров: 45
Array 96 Просмотров: 60
Array 97 Просмотров: 36
Array 98 Просмотров: 36
Array 99 Просмотров: 43
Array 100 Просмотров: 40
Array 101 Просмотров: 36
Array 102 Просмотров: 35
Array 103 Просмотров: 49
Array 104 Просмотров: 22
Array 105 Просмотров: 37
Array 106 Просмотров: 76
Array 107 Просмотров: 35
Array 108 Просмотров: 45
Array 109 Просмотров: 26
Array 110 Просмотров: 36
Array 111 Просмотров: 40
Array 112 Просмотров: 39
Array 113 Просмотров: 57
Array 114 Просмотров: 40
Array 115 Просмотров: 46
Array 116 Просмотров: 48
Array 117 Просмотров: 45
Array 118 Просмотров: 36
Array 119 Просмотров: 41
Array 120 Просмотров: 37
Array 121 Просмотров: 33
Array 122 Просмотров: 50
Array 123 Просмотров: 33
Array 124 Просмотров: 35
Array 125 Просмотров: 40
Array 126 Просмотров: 27
Array 127 Просмотров: 28
Array 128 Просмотров: 30
Array 129 Просмотров: 37
Array 130 Просмотров: 48
Array 131 Просмотров: 34
Array 132 Просмотров: 41
Array 133 Просмотров: 50
Array 134 Просмотров: 42
Array 135 Просмотров: 45
Array 136 Просмотров: 54
Array 137 Просмотров: 44
Array 138 Просмотров: 42
Array 139 Просмотров: 39
Array 140 Просмотров: 45

Комментарии

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