Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
jenikuse
0 / 0 / 0
Регистрация: 05.02.2013
Сообщений: 6
#1

Числа, встречающиеся 2 раза в массиве - Pascal ABC

07.02.2013, 17:07. Просмотров 374. Ответов 1
Метки нет (Все метки)

Найти минимальное из чисел, которые встречаются в целочисленном массиве X=(x[1],x[2],...,x[n]) ровно два раза (если такое число имеется), после чего удалить эти два числа из массива.

помогите, пожалуйста, люди добрые (:
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2013, 17:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Числа, встречающиеся 2 раза в массиве (Pascal ABC):

Вычеркните все буквы, встречающиеся более одного раза - Pascal ABC
Вычеркните все буквы, встречающиеся более одного раза.

Процедура: из предложения вычеркнуть слова, встречающиеся больше одного раза - Pascal ABC
написать программу "из предложения вычеркнуть слова, встречающиеся больше одного раза"

Вывести все цифры, встречающиеся в символьной строке больше одного раза - Pascal ABC
Напишите программу, которая выводит все цифры, встречающиеся в символьной строке больше одного раза. Входные данные Входная строка...

Вывести на экран все символы встречающиеся в этом тексте более одного раза - Pascal ABC
Ввести текст в виде символьной строки. Вывести на экран все символы встречающиеся в этом тексте более одного раза

Дан массив А, состоящий из n натуральных чисел. Выберите элементы, встречающиеся более одного раза - Pascal ABC
:cry:Дан массив А, состоящий из n натуральных чисел. Выберите элементы, встречающиеся более одного раза. Добавлено через 1 час 18...

Из массива А удалить те элементы, которые встречаются и в массиве А и в массиве В по крайней мере по 2 раза - Pascal ABC
из массива А удалить те элементы, которые встречаются и в массиве А и в массиве В по крайней мере по 2 раза. Пример: А 33254659 В...

1
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,313
Записей в блоге: 1
09.02.2013, 09:03 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Var X:array[1..100] of integer;
    K:array[1..100] of integer;
    i,n,kol,imin,j,m,t:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('X[',i,'] = ');
      readln(X[i]);
    End;
    For i:=1 to n do
    Begin
      kol:=0;
      For j:=1 to n do
       if X[i]=X[j] then inc(kol);
      if kol=2 then 
      Begin
        inc(m);
        K[m]:=i;
      End;
    End;
    if m>0 then
    Begin
      imin:=K[1];
      For i:=2 to m do
       if X[K[i]]<X[K[imin]] then imin:=K[i];
      For i:=1 to n do
       if (X[i]=X[imin])and(i<>imin) then t:=i;
      dec(n);
      For i:=imin to n do
       X[i]:=X[i+1];
      dec(n);
      For i:=t-1 to n do
       X[i]:=X[i+1];
      writeln('Преобразованный массив');
      For i:=1 to n do
       write(X[i]:4);
    End
    else writeln('Нету таких чисел');
End.
Как то так тестируй в общем....
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 09:03
Привет! Вот еще темы с ответами:

Сформировать два массива целых чисел; вывести числа, встречающиеся в каждом массиве - Pascal
сформировать два массива целых чисел определенной длины вывести на печать числа встречающиеся в каждом массиве в паскале

Вывести числа, которые повторяются в массиве два раза - Pascal
Дан массив размером 30 элементов, заполненный случайными числами от 0 до 9. Вывести на экран числа, повторяющиеся в массиве два раза.

Найти и распечатать числа, которые встречаются в массиве более одного раза - Pascal
Одномерный массив А состоит из 30 элементов. Найти и распечатать числа, которые встречаются в массиве более одного раза. Помогите сделать

Вывести все символы встречающиеся в тексте 2 раза. - Pascal
В файле f1 набран текст Вывести все символы встречающиеся в тексте 2раза программу оформить в виде процедуры результат записать в файл z3 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.