На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача Array 124


Дано целое число K (>0) и целочисленный массив размера N. Поменять местами последнюю серию массива и его серию с номером K (определение серии дано в задании Array116). Если серий в массиве меньше K, то вывести массив без изменений.

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int a[20],b[20];
    int n,k;
    printf("N: ");
    scanf("%i",&n);
    printf("K: ");
    scanf("%i",&k);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int nk =1, beginkseries=1, lenkseries=(k==1?1:0), beginendseries;
 
    for (i=1; i<n; ++i){
        if (a[i-1]!=a[i]){
            nk++;
            if (nk==k) beginkseries=i;
            beginendseries=i;
        }
        if (nk==k) lenkseries++;
    }
 
    int i2=-1;
    for (i=0; i<beginkseries; ++i)  b[++i2]=a[i];
 
    for (i=beginendseries; i<n; ++i)  b[++i2]=a[i];
 
    for (i=beginkseries+lenkseries; i<beginendseries; ++i)  b[++i2]=a[i];
 
    for (i=beginkseries; i<beginkseries+lenkseries; ++i)  b[++i2]=a[i];
 
    for (i=0; i<n;++i) a[i]=b[i];
 
    for (i=0; i<n;++i) printf("a  %i : %i\n",i+1,a[i]);
 
    return 0;
}

Код (Pascal)

program Array124;
 
var
 a,b : array [1..20] of real;
 N,K,ki,i,i2,i3,kbegin,kend,klast: integer;
 addSeries:boolean;
 
 
begin
//вводим значения из задания
 Write('N: ');
 Readln(N);
 
 Write('K: ');
 Readln(K);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
// анализируем массив
 ki:=0;
 kbegin:=1; 
 for i:=1 to N do
  if i<>N then
   if a[i]<>a[i+1] then
    begin
     inc(ki);
     klast:=i+1;                 //всегда находя новую серию говорим что первый элемент принадлежит последней серии, в конце цикла здесь окажется действительно первый элемент последней серии.
     if ki+1=k then kbegin:=i+1; //находим первый элемент из серии k
     if ki=k then kend:=i;       //находим последний элемент из серии k
    end;
 
 i:=0;
 i2:=0;
 
//cобираем массив
 while ikbegin) and (i<>klast) then
   begin
    inc(i2);
    b[i2]:=a[i]; //добавляем его в конец массива b
   end;
 
   if i=kbegin then //если массив является первым элементом k серии 
    begin
     for i3:=klast to N do //добавляем последнюю серию в массив b
      begin
       inc(i2);
       b[i2]:=a[i3];
      end;
     i:=kend; //и переносим счётчик в начало следующей серии
    end;
 
   if i=klast then // если текущий элемент является началом последней серии
    begin
     for i3:=kbegin to kend do //добавляем k серию в массив b
      begin
       inc(i2);
       b[i2]:=a[i3];
      end;
     i:=N; //переносим счётчик в конец массива, что бы закрылся цикл.
    end;
  end;
 
 a:=b;
 for i:=1 to i2 do writeln(a[i]); //выводим полученный массив.
end.
									




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

Комментарии

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