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

В первом массиве собрать все четные элементы исходного, а во втором – все нечетные

19.04.2010, 19:17. Показов 1267. Ответов 1
Метки нет (Все метки)

Дан массив из N чисел. Сформировать из него два массива: в первом собрать все четные элементы массива, а во втором – все нечетные.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2010, 19:17
Ответы с готовыми решениями:

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

В первом массиве найти все положительные элементы, во втором массиве найти все отрицательные элементы и сформировать массив
В первом одномерном массиве найти все положительные элементы, во втором одномерном массиве найти...

Расположить в массиве сначала все четные, а потом все нечётные элементы
Помогите, пожалуйста, решить две задачи: Задание_1: Дан целочисленный массив из 10 элементов...

В первом массиве найти все положительные элементы, во втором массиве найти все отрицательные элементы
В первом одномерном массиве найти все положительные элементы, во втором одномерном массиве найти...

1
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
19.04.2010, 19:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Так?
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
Private Sub Command1_Click()
Dim N As Integer
Dim i, k, l
Dim arrA() As Single, arrB() As Single, arrC() As Single
N = InputBox("N")
ReDim arrA(1 To N) As Single
k = 0
l = 0
For i = 1 To N
arrA(i) = InputBox("Vvedite element : " & i)
If (arrA(i) Mod 2) = 0 Then
k = k + 1
ReDim Preserve arrB(1 To k)
arrB(k) = arrA(i)
Else
l = l + 1
ReDim Preserve arrC(1 To l)
arrC(l) = arrA(i)
End If
Next i
answ1 = ""
answ2 = ""
For i = 1 To l
answ1 = answ1 & arrC(i) & Space(3)
Next i
For i = 1 To k
answ2 = answ2 & arrB(i) & Space(3)
Next i
MsgBox answ1
MsgBox answ2
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2010, 19:30
Помогаю со студенческими работами здесь

В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.
В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.

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

В одномерном массиве А все четные элементы увеличить в три раза, а нечетные уменьшить на единицу
В одномерном массиве А, состоящем из 12 целых чисел ,все четные элементы увеличить в три раза, а...

Массивы: все элементы, кратные 10, заменить 0, все нечетные элементы удвоить, а четные уменьшить в 2 раза
помогите написать программу (массивы) Дан массив целых чисел из 50 элементов. - Все элементы...


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

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

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