Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
1 / 1 / 1
Регистрация: 12.04.2012
Сообщений: 34
1

Удалить из массива элементы, встречающиеся более одного раза

02.10.2012, 23:09. Просмотров 1494. Ответов 4
Метки нет (Все метки)

Здравствуйте, подскажите пожалуйста. Имеется некий массив, содержащий положительные и отрицательные эллементы, каким способом можно исключить из него положительные эллементы встречающиеся более одного раза?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2012, 23:09
Ответы с готовыми решениями:

В матрице найти элементы, встречающиеся более одного раза
Если не трудно, помогите решить задачу.(Желательно с пояснениями). Заранее спасибо В матрице...

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

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

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

4
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,719
Записей в блоге: 1
03.10.2012, 14:02 2
Pascal
1
2
3
4
5
6
7
8
For i:=1 to n do
 Begin
  b:=false;//встречался ли элемент
  For j:=i+1 to n do
   if (A[i]=A[j])and(A[i]>0) then b:=true;//если попался повторный то b:=true;
  if b then //если элемент встретился более одного раз,либо перестановка элементов 
  //либо записываем в новый массив элементы без этих повторных
 End;
1
1 / 1 / 1
Регистрация: 12.04.2012
Сообщений: 34
04.10.2012, 15:23  [ТС] 3
Большое спасибо за помощь, но моих скудных познаний Pascal хватило только на это:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const count=15;
     a: array [1..count] of integer=(-3,-1,-5,-7,-11,5,3,7,9,5,7,21,15,17,19);
var  j,i,n: integer;
     b:boolean;
begin
     write ('Исходный массив: ');
     for i:= 1 to count do write (' ',a[i]); writeln;
     for i:=1 to count do
      begin
       b:=false;
       for j:=i+1 to n do
       if (A[i]=A[j])and(A[i]>0) then b:=true;
       if b then
       end;
     readln;
end.
0
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,719
Записей в блоге: 1
04.10.2012, 15:25 4
Стандартные операции с массивами (матрицами) поправишь просто условие чтобы ещё были и положительными эти повторяющиеся
1
1 / 1 / 1
Регистрация: 12.04.2012
Сообщений: 34
04.10.2012, 15:35  [ТС] 5
Спасибо Вам огромное! Я эту тему читал преред тем как создавать здесь тему, но это сообщение почему-то проглядел.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2012, 15:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Из массива удалить четные элементы, встречающиеся более одного раза
Из массива удалить четные элементы встречающиеся более одного раза. пример: массив a:9 3 4 9 1 0 0...

В матрице А(N,N) найти элементы, встречающиеся более одного раза
. В матрице А(N,N) найти элементы, встречающиеся более одного раза. Из этих элементов составить и...

В матрице А(N,N) найти элементы, встречающиеся не более одного раза
В матрице А(N,N) найти элементы, встречающиеся не более одного раза. Напечатать их значения,...


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

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

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