Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 26
1

Удалить из массива все элементы, которые повторяются и сжать массив

27.09.2012, 07:43. Просмотров 1274. Ответов 1
Метки нет (Все метки)

Решить через процедуры или функции
1. Вставить произвольное целое число после минимального элемента в массиве
2. Удалить из массива все элементы, которые повторяются и сжать массив
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.09.2012, 07:43
Ответы с готовыми решениями:

Удалить из массива все числа большие N и сжать массив, не заводя нового массива для пересылки
1. Удалить из массива целых чисел все числа большие N и сжать массив, не заводя нового массива для...

Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце...

Удалить в массиве все числа, которые повторяются более двух раз
Удалить в массиве все числа, которые повторяются более двух раз.

Вывести на экран числа массива, которые повторяются, а неповторяющиеся удалить
Необходимо составить программу, которая будет выводить на экран не повторяющиеся элементы массива....

1
Почетный модератор
7949 / 3920 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
27.09.2012, 11:55 2
Лучший ответ Сообщение было отмечено Reisch Helena как решение

Решение

исхожу из предположения, что первое вхождение повторяющегося элемента надо оставить...
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
uses crt;
const nmax=100;
type mas=array [1..nmax+1] of integer;
var a: mas; n: byte;
 
procedure Gen(var r: byte; var z: mas);
var i: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(r);
until r in [1..nmax];
for i:=1 to r do
    z[i]:=random(19)-9;
end;
 
procedure Print(r: byte; z: mas);
var i: byte;
begin
for i:=1 to r do
    write(z[i]:4);
writeln;
end;
 
function Imin(r: byte; z: mas): byte;
var i,im: byte;
begin
im:=1;
for i:=2 to r do
    if z[i]<z[im] then im:=i;
writeln('Минимальный элемент=',z[im],' под номером ',im);
Imin:=im;
end;
 
procedure Insert(var r: byte; var z: mas);
var i: byte;
begin
for i:=r downto Imin(r,z)+1 do
    z[i+1]:=z[i];
z[i]:=random(199)-99;
inc(r);
end;
 
procedure Sdvig (c: byte; var r: byte; var z: mas);
var i: byte;
begin
for i:=c to r-1 do
    z[i]:=z[i+1];
dec(r);
end;
 
procedure Compress (var r: byte; var z:mas);
var i,j: byte;
begin
for i:=r downto 2 do
    for j:=r-1 downto 1 do
    if (z[i]=z[j]) and (i<>j) then Sdvig (i,r,z);
end;
 
begin
Gen(n,a);
writeln('Исходный массив');
Print(n,a);
writeln('Массив после вставки');
Insert(n,a);
Print(n,a);
writeln('Массив после сжатия');
Compress(n,a);
Print(n,a);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.09.2012, 11:55

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

Удалить из массива все элементы, которые состоят из одинаковых цифр
Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка . - Удалить из...

Удалить из массива все элементы, которые состоят из одинаковых цифр
Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка : 1. удалить из...

Удалить из массива все элементы, которые состоят из одинаковых цифр
Дан массив целых чисел(n=10) запосленный случайными числами из промежутся -удалить из него все...

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


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

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

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