Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
kukuryza
15 / 15 / 12
Регистрация: 01.02.2014
Сообщений: 62
1

Из заданного массива удалить уникальные (не повторяющиеся) элементы, являющиеся совершенными числами

09.09.2015, 12:53. Просмотров 879. Ответов 1
Метки нет (Все метки)

Написать программу. Дан одномерный массив А. Из этого массива удалить уникальные ( не повторяющиеся) элементы, являющиеся совершенными числами. Совершенное число- это число, равное сумме всех своих делителей кроме себя самого. 6=1+2+3.
Хотя бы просто удалить уникальные.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2015, 12:53
Ответы с готовыми решениями:

Удалить из вектора все элементы, которые не являются совершенными числами
Помогите пожалуйста с задачей. Буду очень благодарна! С клавиатуры вводятся длина (<=100)...

Найти элементы одномерного массива из N элементов, являющиеся простыми числами
В целочисленном одномерном массиве из N(N\geq 50)элементов есть только один нулевой.Вывести на...

Удалить все элементы массива, являющиеся числами Фибоначчи
1.Дан массив A из N элементов (натуральные числа), удалить все элементы являющимися числами...

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

Дан одномерный массив А. Удалить элементы этого массива являющиеся простыми числами
Дан одномерный массив А. Удалить элементы этого массива являющиеся простыми числами.

1
Puporev
Модератор
56326 / 43110 / 29821
Регистрация: 18.05.2008
Сообщений: 102,449
09.09.2015, 13:52 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
type mas=array[1..20] of integer;
function sov(x:integer):boolean;
var i,s:integer;
begin
s:=0;
for i:=1 to x div 2 do
if x mod i=0 then s:=s+i;
sov:=s=x;
end;
function unik(a:mas;n,c:integer):boolean;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[i]=c then inc(k);
unik:=k=1;
end;
var a:mas;
    n,m,i,j:integer;
begin
repeat
write('Введите размер массива от 1 до 20 n=');
readln(n);
until n in [1..20];
m:=n;
writeln('Введите ',n,' целых положительных чисел, в том числе совершенные(6,28,496)');
for i:=1 to n do
readln(a[i]);
writeln('Исходный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
i:=1;
while i<=n do
if sov(a[i])and unik(a,n,a[i]) then
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
  end
else i:=i+1;
if n=0 then write('Все элементы удалены')
else if n=m then write('Ни один элемент не удален')
else
 begin
  writeln('Удаление уникальных совершенных');
  for i:=1 to n do
  write(a[i],' ');
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2015, 13:52

Напечатать элементы массива, являющиеся двухзначными числами
Дан массив из 10 элементов заполнен случайным образом от 0-20. напечатать элементы массива...

Вывести все элементы массива, являющиеся трехзначными числами
Пользователь вводить натуральные числа, и на экран должны вывестись только трехзначные program...

Вывести на экран элементы массива, являющиеся простыми числами
Дан вектор с n целыми эл-тами, 1&lt;=n&lt;=100. Написать программу, которая выводит на экран эле-нты...


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

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

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