Превратить массив

@Линаа · Регистрация: 20.03.2020

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

Помогите сделать
Превратить массив таким образом, чтобы сначала располагались все элементы, целая часть которых находится в интервале [a, b], после чего - все остальные.
A и B должны задаваться на форме

ВВП789 · 14.04.2020, 15:40

Сообщение от Линаа

A и B должны задаваться на форме

А массив где взять? И куда деть? Может его ещё и показать кому то надо?

@Линаа · 14.04.2020, 16:17 **[ТС]**

Сообщение от ВВП789

А массив где взять? И куда деть? Может его ещё и показать кому то надо?

Это часть задания :
В одномерном массиве, который состоит из N действительных элементов, вычислить:
1) номер максимального по модулю элемента массива;
2) сумму элементов массива, расположенных после первого положительного элемента.
Превратить массив таким образом, чтобы сначала располагались все элементы, целая часть которых находится в интервале [a, b], после чего - все остальные.
На экран вывести: выходной массив; вычисленные значения и превращен массив.

Добавлено через 4 минуты

Сообщение от ВВП789

А массив где взять? И куда деть? Может его ещё и показать кому то надо?

Вот мой код, а как сделать последнее задание я не понимаю

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
Dim A (1 To 10) As Integer
Dim B (1 To 10) As Integer
Dim i As Integer, k As Integer, max As Integer, n As Integer, P As Variant
Dim S As String
 
Private Sub Command1_Click ()
Command1.Caption = "Расчет"
Label1.Caption = "Программа нахождения номера max по модулю элемента массива и сумму элементов массива, расположенных после первого положительного элемента."
Label2.Caption = "Номер максимального по модулю элемента массива:"
Label3.Caption = "Сумма элементов массива, расположенных после первого положительного элемента:"
n1 = InputBox ( "Введите количество элементов <= 10: ')
n = Val (n1)
 
For i = 1 To n
    A (i) = InputBox ( "Введите число", "Массив")
Next i
max = Abs (A (1)): kmax = 1
For i = 2 To n
If Abs (A (i))> max Then max = Abs (A (i)): kmax = i Else
Next i
Label4.Caption = "max =" & Str (max) & "№ -" & Str (kmax)
k = 0
For i = 1 To n
If A (i)> 0 Then k = k + A (i)
 
 
Next i
Label5.Caption = "Сумма:" & k
S = ""
For i = 1 To n
  S = S + Str (A (i)) & ","
Next i
Label6.Caption = "Исходный массив:" & S

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Линаа 0 / 0 / 0 Регистрация: 20.03.2020 Сообщений: 5

	Превратить массив 14.04.2020, 15:06. Показов 386. Ответов 2 Метки нет (Все метки) Помогите сделать Превратить массив таким образом, чтобы сначала располагались все элементы, целая часть которых находится в интервале [a, b], после чего - все остальные. A и B должны задаваться на форме 0