Массивы. Найти наибольший и наименьший элементы и поменять их местами

@OJIEG · Регистрация: 15.11.2014

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

В массиве Z(19) найти наибольший и наименьший элементы и поменять их местами.
Вот нашел код

Visual Basic

dim A() as integer, B as integer
dim N as integer, min as integer, max as integer
dim i as integer, mini as integer, maxi as integer
 
n=inputbox("BBEDITE")
redim A(N)
for i=1 to n
A(i)=inputbox("BBEDITE A" & i)
next i
min = A(1)
max = A(1)
mini = 1
maxi = 1
 
for i=2 to n
if min > A(i) then min = A(i) : mini = i
if max < A(i) then max = A(i) : max = i
next i
 
B=A(mini)
A(mini)=A(maxi)
A(maxi)=B
 
for i=1 to n
msgbox "A(" & i & ")=" A(i)
next i

но мне VB эту строчку msgbox "A(" & i & ")=" A(i) а именно "A(" & i & ")=" A(i) пишет "syntax eror"

@Catstail · 15.11.2014, 22:48

Для желающих искать огрызки:

Visual Basic

1	msgbox "A(" & Cstr(i) & ")=" & Cstr(A(i))

Новые блоги и статьи
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .
Rust или Go? А может C++? hw_wired 28.01.2025 С каждой новой технологией или методологией появляются новые языки программирования, призванные решать конкретные задачи либо улучшать аспекты производительности и безопасности. Среди множества. . .	Fortran и WinAPI: как создать приложение с графическим интерфейсом hw_wired 28.01.2025 Fortran — это один из старейших высокоуровневых языков программирования, широко используемый в науке и инженерии уже несколько десятилетий. Его название происходит от "Formula Translation" (перевод. . .	Списки в Haskell hw_wired 28.01.2025 Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .	Функции высшего порядка в Haskell hw_wired 28.01.2025 Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .	Как в цикле обойти все поля объекта в JavaScript bytestream 28.01.2025 Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .	Как выбрать строки в DataFrame по значению столбца в Pandas bytestream 28.01.2025 В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .

	15.11.2014, 22:48

Массивы. Найти наибольший и наименьший элементы и поменять их местами

Решение