Массивы: поменять местами второй элемент с минимальным

@Герасим · Регистрация: 11.04.2010

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

на одной форме должны решаться одновременно.
1.напечатать индексы элементов массива, равных нулю.
2,поменять местами 2й элемент с минимальным элементом.
И там еще перечень, что нужно использовать в работе

Добавлено через 38 секунд
кто может,пожалуйста подскажите....на счет первого и второго задания...

Добавлено через 2 часа 24 минуты
минимальный элемент вот нашел,а как поменять не могу додумкать...((((

@gaw · 06.05.2010, 22:17

PureBasic
1
2
3
t=amin
amin=a(2)
a(2)=t

@Герасим · 06.05.2010, 22:32 **[ТС]**

Спасибо gaw!!!!!
а еще не подскажешь как с клавы вводить массыв,ну что не машина вводила,а пользователь

@gaw · 06.05.2010, 22:37

нет проверки корректности ввода

Visual Basic
1
2
3
4
5
6
7
Dim a()
Dim i As Integer, N As Integer
N = InputBox("вводим N", , 10)
ReDim a(N)
For i = 1 To N
a(i) = InputBox("вводим а(" & i & ")", , 1)
Next i

@Герасим · 06.05.2010, 23:17 **[ТС]**

gaw.
спасибо,выручил!!!

Добавлено через 15 минут
че та прога не тянет.....gaw,подскажи что тут не так???

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
Private Sub Command3_Click()
Dim k As Integer, n As Integer, t As Integer
n = InputBox("введите размер массива n", , 15)
ReDim a(n)
For k = 1 To n
a(k) = InputBox("вводим числа а(" & k & ")", , 1)
Next k
Picture1.Print "размер массива=";
Picture1.Print: Print
For k=1 To n
k = 1 'начальный минальный элемент
Do
Picture1.Print mas(k);
k = k + 1 'изменение управляющей переменной цикла
Loop Until k > n
Print: Print
Next k
'поиск манимального модуля элемента
kmin = 1 'начальный минимальный элемент
For k = 2 To n
If mas(k) < mas(kmin) Then
kmin = k
End If
Next
Picture1.Print "минимальный отрицательный элемент="; mas(kmin)
Picture1.Print "номер мin элемента равен="; kmin
If mas(kmin) = 0 Then
Print "минимальный элемент = 0"
End If
t = mas(kmin)
mas(kmin) = mas(2)
mas(2) = t
Picture1.Print "меняем = "; mas(kmin)
Picture1.Print "номер мin элемента равен="; kmin
For i = 1 To UBound(mas)
Picture1.Print "mass="; mas(i)
Next i
'Picture1.Print "mass "; mas(t)
 
End Sub

@gaw · 06.05.2010, 23:41

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
Private Sub Command3_Click()
Dim k As Integer, n As Integer, t As Integer
n = InputBox("введите размер массива n", , 15)
ReDim mas(n)
For k = 1 To n
mas(k) = InputBox("вводим числа а(" & k & ")", , 1)
Next k
Picture1.Print "размер массива= "; n
Picture1.Print: Print
 
k = 1 'начальный минальный элемент
Do
Picture1.Print mas(k); Space(4);
k = k + 1 'изменение управляющей переменной цикла
Loop Until k > n
 
 
'поиск манимального модуля элемента
kmin = 1 'начальный минимальный элемент
 For k = 2 To n
If mas(k) < mas(kmin) Then
kmin = k
End If
Next
Picture1.Print
Picture1.Print "минимальный элемент= "; mas(kmin)
Picture1.Print "номер мin элемента равен= "; kmin
If mas(kmin) = 0 Then
Print "минимальный элемент = 0"
End If
t = mas(kmin)
mas(kmin) = mas(2)
mas(2) = t
Picture1.Print "меняем = "; mas(kmin) & " и " & mas(2)
Picture1.Print
For i = 1 To UBound(mas)
Picture1.Print mas(i); Space(4);
Next i
 
 
End Sub

@Герасим · 07.05.2010, 01:22 **[ТС]**

Примного благодарен!!!!

gaw,а как напечатать индексы элементов массива, равных нулю???
сам "0" выводит а вот индекс не хочет че то.....(((

@gaw · 07.05.2010, 13:12

Visual Basic
1
2
3
4
5
For k = 1 To n
If mas(k) =0 Then
Picture1.PRINT k;"   ";
End If
Next

@Герасим · 07.05.2010, 22:11 **[ТС]**

спасибо!!!!выручаешь

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29

	Массивы: поменять местами второй элемент с минимальным 06.05.2010, 21:27. Показов 1507. Ответов 8 Метки нет (Все метки) на одной форме должны решаться одновременно. 1.напечатать индексы элементов массива, равных нулю. 2,поменять местами 2й элемент с минимальным элементом. И там еще перечень, что нужно использовать в работе Добавлено через 38 секунд кто может,пожалуйста подскажите....на счет первого и второго задания... Добавлено через 2 часа 24 минуты минимальный элемент вот нашел,а как поменять не могу додумкать...(((( 0

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29
	06.05.2010, 22:32 [ТС]
	Спасибо gaw!!!!! а еще не подскажешь как с клавы вводить массыв,ну что не машина вводила,а пользователь 0

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29
	07.05.2010, 01:22 [ТС]
	Примного благодарен!!!! gaw,а как напечатать индексы элементов массива, равных нулю??? сам "0" выводит а вот индекс не хочет че то.....((( 0

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29
	07.05.2010, 22:11 [ТС]
	спасибо!!!!выручаешь 0