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

Из каждой группы равных между собой элементов нужно оставить только один

09.01.2011, 19:12. Показов 1540. Ответов 2
Метки нет (Все метки)

1.Дан целочисленный массив а1,а2,...аn,среди элементов которого могут быть равные. Из каждой группы равных между собой элементов нужно оставить только один,выбросив все остальные. Освободившийся хвост заполнить нулями.
2.В заданной матрице поменять местами первый столбец и побочную диагональ.
помогите, завтра нужно сдать!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2011, 19:12
Ответы с готовыми решениями:

В списке L с каждой группы подряд равных элементов оставить только один элемент
Опишите программу , которая в списке L с каждой группы подряд равных элементов оставляет только...

Из каждой группы равных между собой элементов массива нужно оставить только один
Дан целочисленный массив а0, а1, а2,…, аn-1, среди элементов которого могут быть равные. Из каждой...

В списке L из каждой группы идущих подряд равных элементов оставить только один
опишите программу которая в списке L из каждой группы идущих подряд равных элементов оставляет...

В списке L из каждой группы подряд идущих равных элементов оставить только один элемент
В списке L из каждой группы подряд идущих равных элементов оставить только один элемент Например,...

2
Почетный модератор
7387 / 2633 / 280
Регистрация: 29.07.2006
Сообщений: 13,696
09.01.2011, 19:15 2
язык.
1
0 / 0 / 1
Регистрация: 09.01.2011
Сообщений: 7
09.01.2011, 19:35  [ТС] 3
Лучший ответ Сообщение было отмечено Pavel_4a-4anax как решение

Решение

Прошу прощения. Язык Pascal

Добавлено через 17 минут
Накидал процедуру для первого пункта:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure zamena (var a,b:Tmas; n:integer);
var i,j: integer;
 
begin
     i:=1;
while i<=n do
 begin
  j:=i+1;
  while j<=n do
   begin
    if a[j]=a[i] then
     begin
      a[j]:=0;
       n:=n-1;
 
      end
     else j:=j+1;
end;
для второго:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Zamena (var A:MAC2; n:integer);
          var k,i,j:integer;
          begin
 k:=n;
 for i:=1 to n do
 
begin
a[i,1]:=a[i,k];
a[i,k]:=a[i,1];
i:=i+1;
k:=k-1;
end;
end;
но че-то не то
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2011, 19:35
Помогаю со студенческими работами здесь

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...

Из каждой группы подряд идущих элементов оставить только один
Дан список строк. Написать подпрограмму, которая из каждой группы подряд идущих элементов оставляет...

Из каждой группы подряд идущих одинаковых элементов оставить только один
Составить программу, которая в списке L из каждой группы подряд идущих одинаковых элементов...

В списке L из каждой группы подряд идущих элементов с равными значениями оставить только один
В списке L из каждой группы подряд идущих элементов с равными значениями оставить только один.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru