В массиве А определить минимальное и макси-мальное значения и их порядковые номера. А=( -7; 5; 0; 5; -7; 8; 5; 9; 1; 5) Вывести исходный массив А в строку, а результаты в столбец.
по примеру:
Private Sub Form_Load()
REM ПРИМЕР ПРОГРАММЫ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Dim A()as double
Dim B() as double
Dim c() as double
Dim N as integer
N= val(INPUTBOX( "ВВЕДИТЕ РАЗМЕРНОСТЬ ОДНОМЕРНОГО МАССИВА "))
REM ОБЪЯВЛЕНИЕ МАССИВА И ВВОД ИСХОДНЫХ ДАННЫХ
Redim A(N)
Redim B(N)
Redim c(N)
Rem Ввод значений элементов массива B()
FOR I = 1 TO N
B(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива B()"))
NEXT I
Rem Ввод значений элементов массива С()
FOR I = 1 TO N
С(I)= val(INPUTBOX("ВВЕДИТЕ значения элементов массива С()"))
NEXT I
REM РАСЧЕТ ЗНАЧЕНИЙ МАССИВА А
FOR I = 1 TO N
IF B(I) >= 0 AND B(I) <= 2 OR B(I) >= 6 THEN
A(I) = ABS(B(I) + c(I))
ELSE
A(I) = (B(I) + c(I)) ^ 2
END IF
NEXT I
REM ВЫВОД ИСХОДНЫХ ДАННЫХ И РЕЗУЛЬТАТОВ РАСЧЕТОВ
PRINT
PRINT "ЗАДАНИЕ ВЫПОЛНИЛ СТ-Т ИВАНОВ И.И., ГР.БГТУ , ВАРИАНТ 1"
PRINT
PRINT "ИСХОДНЫЕ ДАННЫЕ: значения элементов массива В С"
FOR I = 1 TO N
PRINT TAB(10); B(I); TAB(20); c(I)
NEXT I
PRINT
PRINT "РЕЗУЛЬТАТЫ РАСЧЕТОВ"
FOR I = 1 TO N
PRINT A(I);
NEXT I
END Sub
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.