0 / 0 / 1
Регистрация: 11.10.2012
Сообщений: 60
1

Создание нового массива из элементов исходного

11.10.2012, 22:47. Показов 1945. Ответов 1
Метки нет (Все метки)

Здравствуйте, уважаемые программисты. Помогите, пожалуйста, составить программку для создания нового массива, содержащего те элементы исходного массива, которые входят в него более 2-х раз. Мои попытки ни к чему не привели :\
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2012, 22:47
Ответы с готовыми решениями:

Создание нового массива из элементов квадратной матрицы
Дан массив A(X,X) - то есть квадратная матрица. Сформировать массив S из суммы тех элементов...

Формирование нового массива из сумм пар элементов исходного массива.
Задали линейный массив А, содержащий четное количество элементов. Вывести линейный массив В,...

Создание нового массива из определенных элементов другого массива
Здравствуйте. Мне нужно создать одномерный массив из элементов двумерного массива. Как можно это...

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

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
12.10.2012, 18:07 2
Лучший ответ Сообщение было отмечено Bramme как решение

Решение

Может как-то неуклюже, но работает.
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
uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i,j,m,k,x,p:integer;
    f:boolean;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
i:=1;
m:=0;
while i<n do
 begin
  f:=false;k:=0; x:=a[i];
  for j:=i to n do
  if a[j]=x then k:=k+1;
  if k>2 then
   begin
    f:=true;
    j:=i;
    while j<=n do
    if a[j]=x then
     begin
      m:=m+1;
      b[m]:=x;
      for p:=j to n-1 do
      a[p]:=a[p+1];
      n:=n-1;
     end
    else j:=j+1;
   end;
  if not f then i:=i+1;
 end;
if m=0 then write('Элементов больше 2 раз нет')
else
 begin
  writeln('Элементы встречаются более 2 раз');
  for i:=1 to m do
  write(b[i]:4);
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.10.2012, 18:07

Сформировать из исходного массива новый массив, являющий собой множество элементов исходного массива
Пусть даны целые числа a1, a2, …, an, среди которых могут быть повторяющиеся. Составьте новый...

Разработать программу для создания нового массива, содержащего повторяющиеся элементы исходного массива
Есть псевдокод. Возможно он не правильный ( я же состовлял.) Помогите сделать программу на паскале...

Сформировать новый массив из неотрицательных элементов массива В, найти среднее арифметическое элементов нового массива
всем здарсте ребят, сижу на зачете... такая задачка - задан массив В(20). Сформировать новый...

Записать индексы тех элементов исходного массива, которые больше среднего значения всех элементов массива
Составить новый массив и вывести на экран, в который записать индексы тех элементов исходного...


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

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

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