imlold
1

В массиве все четные элементы обнулить

09.04.2010, 16:41. Показов 5741. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите, пожалуйста, решить задачи. Первые 4 задачи - часть А, след. 3 - часть В, и последние 3 - часть С.
1)В массиве все четные элементы обнулить.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 3 0 5 0.
2)В массиве все элементы, стоящие между четными, заменить на 1.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 2 4 1 6.
3)В массиве все элементы, стоящие после минимального, заменить на 0.
Пример: из массива A[5]: 3 2 1 5 6 должен получиться массив 3 2 1 0 0.
4)В массиве все четные элементы, стоящие левее минимального, заменить на 0.
Пример: из массива A[5]: 3 2 1 0 4 должен получиться массив 3 0 1 0 4.
5)Из массива удалить первый из четных элементов.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться
массив A[4]: 1 3 5 6.
6)Из массива удалить последний из четных элементов.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться
массив A[4]: 1 3 4 5.
7)После первого четного элемента вставить 0.
Пример: из массива A[5]: 1 6 8 3 4 должен получиться
массив A[6]: 1 6 0 8 3 4.
8)Из массива удалить четные элементы, стоящие после максимального.
Пример: из массива A[5]: 2 7 4 6 5 должен получиться
массив A[3]: 2 7 5.
9)Из массива удалить элементы, кратные трем, стоящие между максимальным и минимальным элементами.
Пример: из массива A[7]: 1 9 3 4 9 0 0 должен получиться массив A[5]: 1 9 4 0 0.
10)Из массива удалить элементы, встречающиеся в массиве более одного раза.
Пример: из массива A[7]: 9 3 4 9 1 0 0 должен получиться массив A[3]: 3 4 1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2010, 16:41
Ответы с готовыми решениями:

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

В первом одномерном массиве найти все нечетные элементы, во втором одномерном массиве найти все четные элементы и из них сформировать массив
1. Ввести одномерный массив используя генератор случайных чисел. Одномерный массив может быть...

В одномерном массиве все четные элементы заменить пятеркой
Выше есть похожая задачка, но я никак не могу въехать как свою доделать((( Задача: В одномерном...

В одномерном массиве вывести все четные элементы, кратные 4 и 5
Помогите, пожалуйста! Буду благодарна за любую помощь в решении!

3
4117 / 994 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
09.04.2010, 16:44 2
четто я тут частей А,Б,Ц не вижу ня...
0
32 / 20 / 9
Регистрация: 05.03.2010
Сообщений: 51
09.04.2010, 17:52 3
В одну программу написал все варианты, по названию процедур определишь, где что
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
uses
   crt;
 
type
   MyArray = array [1..20] of integer;
 
const 
   sizeMax = 20;
 
procedure putZero(var a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 1 to size do
     if (a[i] mod 2 = 0) then
       a[i] := 0;
end;
 
procedure putOne(var a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 2 to size - 1 do
     if ((a[i - 1] mod 2 = 0) and (a[i + 1] mod 2 = 0)) then
       a[i] := 1;
end;
 
function getMin(const a : MyArray; const size : integer);    * - процедура вычисления последнего min
var
   i : integer;
   imin : integer;
begin
   imin := 1;
   for i := 2 to size do
      if (a[i] <= a[imin]) then
        imin := i;
   getMin := imin;
end;
 
procedure putZeroAfterMin(var a : MyArray; const size : integer);
var 
   i : integer;
   imin : integer;
begin
   imin := getMin(a, size);
   for i := imin + 1 to size do
      a[i] := 0;
end;
 
procedure putZeroBeforeMin(var a : MyArray; const size : integer);
var
   i : integer;
   imin : integer;
begin
   imin := getMin(a, size);
   for i := 1 to imin - 1 do
      a[i] := 0;
end;
 
procedure deleting(var a : MyArray; var size : integer; const index : integer);
var
   i : integer;
begin
   for i := index to size - 1 do
      a[i] := a[i + 1];
    dec(size);
end;
 
procedure deleteFirst(var a : MyArray; var size : integer):
var
   i : integer;
begin
   for i := 1 to size do
      if (a[i] mod 2 = 0) then
            begin
               deleting(a, size, i);
               exit;
            end;
end;
 
procedure deleteLast(var a : MyArray; var size : integer);
var 
   i : integer;
begin
     for i := size downto 1 do
      if (a[i] mod 2 = 0) then
          begin
             deleting(a, size, i);
             exit;
          end;
end;
 
procedure putAfterFirst(var a : MyArray; var size : integer);
var
   i : integer;
   j : integer;
begin
   for i := 1 to size do
      if (a[i] mod 2 = 0) then
      begin
         inc(size);
         for j := size - 1 downto i + 1 do
            a[i] := a[i - 1];
         a[i + 1] := 0;
         exit;
      end;
end;
 
function getMax(const a : MyArray; const size : integer);
var
   i : integer;
   imax : integer;
begin
   imax := 1;
   for i := 2 to size do
      if (a[i] >= a[imax]) then
        imax := i;
   getMax := imax;
end;
 
procedure deleteAfterMax(var a : MyArray; var size : integer);
var 
   i : integer;
   j : integer;
   imax : integer;
begin
   imax = getMax(a, size);
   for i := imax to size do
     if (a[i] mod 2 = 0) then
       while (a[i] mod 2 = 0) do
       begin
          deleting(a, size, i);
          inc(i);
       end;
end;
 
procedure deleteAfterMinBeforeMax(var a : MyArray; var size : integer);
var
   i : integer;
   imax : integer;
   imin : integer;
begin
   imax := getMax(a, size);
   imin := getMin(a, size);
   if (imin > imax) then
     for i := imax + 1 to imin - 1 do
        if (a[i] mod 3 = 0) then
          deleting(a, size, i);
   if (imax > imin) then
     for i := imin + 1 to imax + 1 do
         if (a[i] mod 3 = 0) then
          deleting(a, size, i);
end;
      
 
procedure writing(const a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 1 to size do
      write(a[i], ' ');
end;
 
var
   a : MyArray;
   size : integer;
begin
   clrscr;
   write('Please, enter the nubmer of elements ');
   repeat
     {$I-}
     read(size);
     {$I+}
   until((IOResult = 0) and (size > 0) and (size <= sizeMax));
   
   write('Please, enter the elements );
   for i := 1 to size do
      read(a[i]);
   putZero(a, size);
   putOne(a, size);
   {и так далее все процедуры, которые нужны}
end.
Глобальные переменные - это ЗЛО!!!!=)
1
42 / 2 / 0
Регистрация: 26.11.2011
Сообщений: 8
26.11.2011, 13:15 4
Пожалуйста, помогите!!!1)В массиве С(9) все элементы стоящие после наименьшего обнулить.
2)Дана матрица В(5,5).Найти количество элементов больших 5,среди элементов главной диагонали.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2011, 13:15
Помогаю со студенческими работами здесь

В массиве все четные элементы, стоящие между нечетными, уменьшить в 2 раза
Help me please! В массиве все четные элементы, стоящие между нечетными, уменьшить в 2 раза....

Обнулить чётные элементы в строках с чётными номерами
Обнулить чётные элементы в строках с чётными номерами и нечётные элементы в строках с нечётными ...

В массиве все четные элементы увеличить в 2 раза
В массиве все четные элементы увеличить в 2 раза. Пример: из массива A: 1 3 4 5 6 должен...

Отсортировать в одномерном массиве все четные элементы по возрастанию.
Дан одномерный массив. Отсортировать все четные элементы по возрастанию, нечетные оставить без...


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

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

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