Массив. Удалить из массива все повторяющиеся элементы.

@Kostya__kov · Регистрация: 09.06.2011

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

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

@l2ded · 09.03.2013, 22:45

Сообщение от Kostya__kov

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

Использовать цикл в цикле.
Если повторяется, то смещаем массив(уменьшаем размерность) с точки удаления переставляем элементы.
Т.е.
1 2 3 4 1 5 7 (7)
1 2 3 4 5 7 (6)

@Kostya__kov · 11.03.2013, 06:09 **[ТС]**

а можете программу написать?

@Puporev · 11.03.2013, 08:37

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure del_pov(var a:mas;var n:integer);
var i,j,k:integer;
begin
i:=1;
while i<=n do
 begin
  j:=i+1;
  while j<=n do
   begin
    if a[j]=a[i] then
     begin
      for k:=j to n-1 do
      a[k]:=a[k+1];
      n:=n-1;
      end
     else j:=j+1;
   end;
  i:=i+1;
 end;
end;
var a:mas;
    n,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:2);
 end;
writeln;
del_pov(a,n);
writeln('Массив без повторений:');
for i:=1 to n do
write(a[i]:2);
readln
end.

@Kostya__kov · 11.03.2013, 17:28 **[ТС]**

СПАСИБО БОЛЬШОЕ!!!!)))))))))))))))))))))

Комментарий модератора

Правило форума 3.6.: Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста

@Kostya__kov 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 29
		1
	Массив. Удалить из массива все повторяющиеся элементы. 09.03.2013, 19:38. Показов 1900. Ответов 4 Метки нет (Все метки) В основной программе описать массив целых чисел размерности n. Размерность массива запрашивать с клавиатуры. Элементы массива задать случайным образом. Написать функцию, которая удаляет из массива все повторяющиеся элементы. Размерность массива передать в функцию по ссылке. На экран в основной программе вывести исходный и преобразованный массивы. 0

@l2ded 80 / 68 / 31 Регистрация: 10.05.2011 Сообщений: 284
	09.03.2013, 22:45	2
	Сообщение от Kostya__kov В основной программе описать массив целых чисел размерности n. Размерность массива запрашивать с клавиатуры. Элементы массива задать случайным образом. Написать функцию, которая удаляет из массива все повторяющиеся элементы. Размерность массива передать в функцию по ссылке. На экран в основной программе вывести исходный и преобразованный массивы. Использовать цикл в цикле. Если повторяется, то смещаем массив(уменьшаем размерность) с точки удаления переставляем элементы. Т.е. 1 2 3 4 1 5 7 (7) 1 2 3 4 5 7 (6) 1

@Kostya__kov 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 29
	11.03.2013, 06:09 [ТС]	3
	а можете программу написать? 0

	11.03.2013, 17:28