Удалить из массива все элементы, первая цифра которых четная

@Lotesse · Регистрация: 11.04.2012

Author24 — интернет-сервис помощи студентам

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-35,75]. Удалить из него все элементы, первая цифра которых четная.

2. Вставить число К1 после всех элементов, больших заданного числа, а число К2 – перед всеми элементами, кратными трем.

3. Перенести первые k элементов в конец: a[k+1], a[k+2], .. ,a[n], a[2], .., a[k].

Помогите разобраться с ошибками

Visual Basic
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
Dim a(25) As Integer
Dim b(25) As Integer
Dim c(25) As Integer
Dim d(25) As Integer
 
Private Sub Command1_Click()
n = 25
Randomize
k1 = Val(Text2)
k2 = Val(Text3)
k = Val(Text4)
For i = 0 To n - 1
a(i) = Round(Rnd * 111 - 35)
b(i) = a(i)
c(i) = a(i)
d(i) = a(i)
List1.AddItem a(i)
Next i
 
 
i = 0
Do
x = Abs(b(i))
  If ((x < 10) And (x Mod 2 = 0)) Or ((x >= 20) And ((x \ 10) Mod 2 = 0)) Then
     For j = i To n - 1
     b(j) = b(j + 1)
     n = n - 1
     Next j
     Else: i = i + 1
  End If
List2.AddItem b(j)
Loop While i <= n
 
 
 
n = 25
i = 0
Do
 If c(i) > Val(Text1) Then
  n = n + 1
   For j = n To i + 2 Step -1
   c(j) = c(j - 1)
   c(j + 1) = k1
   i = i + 2
   Next j
 Else: i = i + 1
 End If
Loop While i <= n
 
 
 
n = 25
i = 0
Do
 If c(i) Mod 3 = 0 Then
   n = n + 1
   For j = n To i + 1 Step -1
   c(j) = c(j - 1)
   c(j) = k2
   i = i + 2
   Next j
 Else: i = i + 1
 End If
Loop While i <= n
 
 
For i = 0 To n
list3.AddItem c(i)
Next i
  
  
n = 25
For i = 0 To k
 x = d(1)
  For j = 0 To n - 1
  d(j) = d(j + 1)
  d(n) = x
  Next j
Next i
 
 
For i = 0 To n
list4.AddItem d(i)
Next i
 
 
End Sub

@Апострофф · 19.12.2014, 21:21

Lotesse, за три (почти) года можно было хоть раз прочитать правила?

@Lotesse · 20.12.2014, 01:10 **[ТС]**

Извините,конечно, но я спрашивал конкретно про мои ошибки в коде, объяснение их. Готовое решение я и сам могу найти без помощи этого форума. Простите, если я что-то не так понял.

@Lotesse · 22.12.2014, 11:58 **[ТС]**

И все-таки я ее сделал. Вот, если кому вдруг понадобится

Visual Basic
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
Dim a(24) As Integer
Dim b() As Integer
Dim c() As Integer
Dim d() As Integer
Dim l() As Integer
 
 
 
Private Sub Command1_Click()
Randomize
List1.Clear
List2.Clear
List3.Clear
List4.clear
List5.Clear
chislo = Val(Text3)
k1 = Val(Text1)
k2 = Val(Text2)
k_element = Val(Text4)
ReDim Preserve l(24)
ReDim Preserve d(24)
For i = 0 To 24
a(i) = Round(Rnd * 110 - 35)
d(i) = a(i)
l(i) = a(i)
List1.AddItem a(i)
Next i
For i = 0 To 24
 x = Abs(a(i))
  If ((x < 10) And (x Mod 2 = 0)) Or ((x >= 20) And ((x \ 10) Mod 2 = 0)) Then
   j = j + 1
   ReDim Preserve b(j)
   b(j) = a(i)
   List2.AddItem b(j)
  Else
  g = g + 1
  ReDim Preserve c(g)
  c(g) = a(i)
  List3.AddItem c(g)
  End If
Next i
 
 
 
 
 
m = 0
e = 0
For i = 24 To 0 Step -1
If a(i) > chislo Then
m = m + 1
ReDim Preserve d(24 + m)
n = UBound(d)
For j = n To i + 1 Step -1
d(j) = d(j - 1)
Next j
d(i + 1) = k1
End If
If Abs(a(i)) Mod 3 = 0 Then
e = e + 1
ReDim Preserve d(24 + e)
s = UBound(d)
For u = s To i + 1 Step -1
d(u) = d(u - 1)
Next u
d(i) = k2
End If
Next i
 
For i = 0 To UBound(d)
List5.AddItem d(i)
Next i
 
 
 
 
 
s = 0
ReDim Preserve l(24 + k_element)
For i = 25 To 24 + k_element
l(i) = l(s)
s = s + 1
Next i
For i = 0 To 24
l(i) = l(k_element + i)
List4.AddItem l(i)
Next i
ReDim Preserve l(24)
 
 
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .	Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .
Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .	MVC фреймворк в PHP Jason-Webb 19.04.2025 Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .

@Апострофф 9894 / 3905 / 738 Регистрация: 11.10.2011 Сообщений: 5,879
	19.12.2014, 21:21
	Lotesse, за три (почти) года можно было хоть раз прочитать правила? 0

@Lotesse 3 / 3 / 3 Регистрация: 11.04.2012 Сообщений: 37
	20.12.2014, 01:10 [ТС]
	Извините,конечно, но я спрашивал конкретно про мои ошибки в коде, объяснение их. Готовое решение я и сам могу найти без помощи этого форума. Простите, если я что-то не так понял. 0

Опции темы

Удалить из массива все элементы, первая цифра которых четная

Решение