Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры

@aristgolz · Регистрация: 11.01.2014

Author24 — интернет-сервис помощи студентам

Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры и занести их во второй массив, специально для этого предназначенный. Это лишь часть задания, интересует именно она, с остальным
я в состоянии справиться сам, и дабы не наглеть прошу помочь только с тем, с чем действительно не справляюсь. Заранее благодарен.

@CodeR · 12.01.2014, 12:11

Pascal

For i:=1 to n do
Begin
  Str(A[i],s);
  kol:=0;
  For j:=1 to Length(s) do
  Begin
    For k:=j+1 to Length(s) do
     if s[j]=s[k] then inc(kol);
    if kol>2 then break;
  End;
  if kol=1 then 
  Begin
    inc(m);
    B[m]:=A[i];
  End;
End;

Если конечно правильно понял,что вы хотели
Пример
Исходный массив
123 122 132 12255 112
Полученный массив
122 112

@aristgolz 0 / 0 / 0 Регистрация: 11.01.2014 Сообщений: 5
		1
	Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры 11.01.2014, 13:48. Показов 1362. Ответов 1 Метки нет (Все метки) Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры и занести их во второй массив, специально для этого предназначенный. Это лишь часть задания, интересует именно она, с остальным я в состоянии справиться сам, и дабы не наглеть прошу помочь только с тем, с чем действительно не справляюсь. Заранее благодарен. 0

	12.01.2014, 12:11

Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры

Решение