Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
jenikuse
0 / 0 / 1
Регистрация: 05.02.2013
Сообщений: 6
#1

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

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

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

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

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

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

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

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

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

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

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,650
Записей в блоге: 1
09.02.2013, 09:03 #2
Лучший ответ Сообщение было отмечено jenikuse как решение

Решение

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
Привет! Вот еще темы с решениями:

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

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

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

Вывести все символы встречающиеся в тексте 2 раза.
В файле f1 набран текст Вывести все символы встречающиеся в тексте 2раза...


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

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

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