По разделам



Задача Array 100


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

Код (C/C++)

#include <stdio.h>
int main(void)
{
    int a[10];
    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 ai,i2, k, num;
    for (i=0; i<n;i++){
      num=0;
      for (i2=0; i2<n; ++i2) if (a[i]==a[i2]) ++num;
 
      if (num==2){
          k=i-1;
          ai=a[i];
          for (i2=i;i2<n;++i2)
              if (a[i2]!=ai){
                  ++k;
                  a[k]=a[i2];
              }
          n=k+1;
          --i;
      }
   }
 
    printf("A - %i\n",n);
    for (i=0; i<n; ++i) printf("  %i: %i\n",i+1,a[i]);
 
    return 0;
}

Код (Python)

import random

N = random.randrange(2,21)
a = [random.randrange(0,5) for i in range(N)]

print("N = ", N)
print("Array:\n",a)

i = 0
while i < len(a) :
    x = a[i]
    k = 0
    for y in a :
        if x == y :
            k += 1
    if k == 2 :
        flag = True
        while flag :
            try:
                a.remove(x)
            except ValueError:
                flag = False
    else :
        i += 1
        

print("Modified Array:\n",a)
print("Length:\n",len(a))
									

Код (Pascal)

program Array100;
var
  a : array[1..10] of Integer;
  N,i,i2,i3,num:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
   i:=1;
   while (i<=N) do //основной цикл бежим по массиву до конца
    begin
     num:=0;
     for i2:=1 to N do if a[i]=a[i2] then inc(num); //подсчитываем кол-во элементов равных a[i]
     if num<>2 then i:=i+1 //если кол-во элементов не равно 2 увеличиваем счётчик на 1
     else
      begin
       for i2:=N downto i do // если кол-во элементов оказалось больше 2 удаляем все элементы равные a[i]
        if a[i]=a[i2] then // сравниваем элемент элемент
         begin        //если совпал удаляем
          N:=N-1;
          for i3:=i2 to N do a[i3]:=a[i3+1];
         end;
      end;
    end;
 
 
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
  readln;
end.
									




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

Комментарии

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