Вставить после всех строк, содержащих минимальный элемент массива, строку 2, 4, 6

23.12.2012, 10:01. Показов 1165. Ответов 0

Метки нет (Все метки)

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

Дан двумерный массив размером n*m, заполненный случайными числами. Вставить после всех строк, содержащих минимальный элемент массива, строку 2, 4, 6,…
Как сделать так, чтобы выводилась 2,4,6... строки после каждой строки, где есть мин. элемент?
У меня просто выводит строку после массива и все.

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
Private Sub Command2_Click()
Picture3.Cls: Picture4.Cls
n = Val(Text1)
m = Val(Text2)
k = 0: t = 2
For i = 1 To n
 For j = 1 To m
    ms(i, j) = Int(Rnd * 100)
    Picture3.Print ms(i, j);
 Next
 Picture3.Print
Next
    For i = 1 To n
     Min = ms(i, 1)
     For j = 1 To m
         If Min > ms(i, j) Then Min = ms(i, j)
         Next: Next
 
 
For i = n To 1 Step -1
    For j = 1 To m
        If ms(i, j) = Min Then
            k = k + 1
            For l = k + n To i + 1 Step -1
                 For p = 1 To m
                    ms(l, p) = ms(l - 1, p)
                 Next p
            Next l
            For p = 1 To m
              ms(i + 1, p) = ms(t, p)
            Next p
            t = t + 2
             Exit For
        End If
    Next j
Next i
For p = 1 To n + k
 For j = 1 To m
    Picture4.Print ms(p, j);
    Next
 Picture4.Print
Next
End Sub

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

23.12.2012, 10:01

Ответы с готовыми решениями:

Как вставить мин элемент массива после всех четных элементов?
Всем привет! Помогите разобраться с задачкой. Имеется одномерный массив из n элементов и собственно сама задачка: как вставить...

Вставить максимальный элемент массива после всех элементами, в которых есть цифра 1
Вставить максимальный элемент массива после всех элементами, в которых есть цифра 1. For i = 1 To n x = Abs(am(i)) If (x...

Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К
Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К. Private Sub Command3_Click() Picture1.Cls ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

23.12.2012, 10:01

Помогаю со студенческими работами здесь

Вставить после всех строк матрицы, содержащих минимальный элемент массива, строку 2, 4, 6...
дан двумерный массив размером n*m заполненный следующим образом 1 заменить каждый элемент нулём 2 вставить после всех строк,...

Вставить после всех строк, содержащих максимальный по модулю элемент, первую строку
дан двумерный массив размером n*m и заполненный случайным образом: 1 задача)вставить после всех строк, содержащих максимальный по модулю...

Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…
Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. . Удалить все столбцы, в которых первый элемент четный

. Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. . Удалить все столбцы, в которы
Вставить после всех строк, содержащих минимальное значение строку 1,2,3,…. Удалить все столбцы, в которых первый элемент четный

Вставить после каждой строки содержащей минимальный элемент массива, строку из нулей
Задана целочисленная квадратная матрица b. 1. Вставить после каждой строки содержащей минимальный элемент массива, строку из нулей. 2....

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Наверх