М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rusylan883
rusylan883
29.12.2021 01:56 •  Информатика

Решить ! в приоритете - написать код по в с++. буду !

👇
Открыть все ответы
Ответ:
Noo1989
Noo1989
29.12.2021

' Объявляем массив

Dim Arr(1 To 10) As Integer


' Заполняем массив значениями от 1 до 15

Dim min, max As Integer

min = 1

max = 15

Randomize

For i = LBound(Arr) To UBound(Arr)

   Arr(i) = Int((max - min + 1) * Rnd + min)

Next


' Выводим MsgBox с содержимым массива

Dim Str As String

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)


' Находим индекс минимального элемента

Dim minIndex As Integer

minIndex = LBound(Arr)

For i = LBound(Arr) To UBound(Arr)

   If Arr(i) < Arr(minIndex) Then

       minIndex = i

   End If

Next


' Меняем местами минимальный элемент и последний

Dim a As Integer

a = Arr(minIndex)

Arr(minIndex) = Arr(UBound(Arr))

Arr(UBound(Arr)) = a


' Выводим MsgBox с содержимым массива

Str = ""

For i = LBound(Arr) To UBound(Arr)

   Str = Str + CStr(Arr(i)) + " "

Next

MsgBox (Str)

4,4(60 оценок)
Ответ:
vvasilchenkosn
vvasilchenkosn
29.12.2021

свободно распространяемый векторный графический редактор, удобен для создания как художественных, так и технических иллюстраций (вплоть до использования в качестве САПР общего назначения, чему также лёгкость обмена чертежами). Это стало возможным во многом благодаря открытому формату SVG, развиваемому консорциумом W3C. Формат SVG позволяет создавать иллюстрации различного типа, в том числе анимированные. Поскольку SVG основан на расширяемом языке разметки (XML), к нему можно писать расширения, чем авторы Inkscape и пользуются[8]. Программа распространяется на условиях GNU General Public License.

4,5(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ