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

Удалить элемент, стоящий после максимального элемента массива

22.11.2015, 14:10. Показов 1444. Ответов 1
Метки нет (Все метки)

Работа в LibreOffice Calc, через макрос.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2015, 14:10
Ответы с готовыми решениями:

Удалить в списке элемент, стоящий после последнего минимального элемента
Удалить в списке элемент, стоящий после последнего минимального элемента. правила форума

Удалить из списка элемент, стоящий после элемента на который указывает пользователь
Нужно удалить из списка элемент, стоящий после элемента на который указывает пользователь,...

Удалить из массива элемент, стоящий в центре (если количество элементов в массиве чётное, то удалить средние два элемента).
Удалить из массива элемент, стоящий в центре (если количество элементов в массиве чётное, то...

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

1
89 / 36 / 14
Регистрация: 03.11.2010
Сообщений: 429
22.11.2015, 22:24 2
Лучший ответ Сообщение было отмечено azat86 как решение

Решение

как то так:
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
dim mass() as Integer
  redim mass(5)
  dim i as Integer, j as Integer
  dim s as string
'ввод массива  
        mass(0) = 1     
    mass(1) = 2
    mass(2) = 15
    mass(3) = 4 'этот элемент будет удалён
    mass(4) = 5
    mass(5) = 6
 
'поиск максимального   
    For i =0 to Ubound(mass())
        If mass(i) > mass(j) Then j = i
    Next i
'удаление   
    If j<Ubound(mass()) then
        For i =j+1 to Ubound(mass())-1
            mass(i) = mass(i+1)
        Next i
        Redim Preserve mass(4)
    end if
'показ результата  
    For i =0 to Ubound(mass())
        s = s & mass(i) & " : "
    Next i
    msgbox mid(s,1, len(s)-3)
есть другой раздел для LibreOffice
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2015, 22:24
Помогаю со студенческими работами здесь

Вставить после каждого нулевого элемента массива элемент, стоящий посередине
Добрый вечер форму. Я у вас тут новенький,и это моя первая тема:) Не знаю куда обратиться поэтому...

Вставить элемент со значением 0 после максимального элемента массива
1) Дан одномерный массив. Вставить элемент со значением 0 после макслимального элемента. (найдите...

Поменять каждый элемент массива, стоящий на нечетном месте, на элемент, стоящий справа
Дан одномерный массив A. Написать программу, которая будет менять каждый элемент, стоящий на...

Удалить первый нулевой элемент массива и добавить после каждого чётного элемента особый элемент
Здравствуйте! Имеется такая задача: 1) Сформировать одномерный массив целых чисел, используя...


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

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

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