→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Задача с массивом 
Автор Сообщение
Начинающий

Регистрация: 08.05.2011
Сообщения: 1
Языки:
Специальность:

Репутация: 0 [ ? ]
 Задача с массивом
В произвольном массиве E из n элементов найти наименьший элемент и записать его на первое место нового масива, а затем дописать в новый массив элементы, значение которых не меньше заданной константы (E >= const)

Начальные данные, что необходимо ввести, следует предварительно записать в избранные ячейки листа MS Excel и оттуда ввести их в программу. Выведение данных осуществить в другие ячейки листа.

Массив ввела, минимальное нашла, а вот дальше - ступор [what]

Помогите пожалуйста.

Заранее спасибо!

То что у меня получилось:

Sub Rabota()
Dim i As Integer, A() As Integer, n As Integer, r As Integer
Dim min As Single
r = Val(InputBox("Введите номер ячейки", "Окно ввода", "1"))
n = Val(InputBox("Введите размерность массива"))
ReDim A(n)
For i = 1 To n
A(i) = Cells(r, 1)
r = r + 1
Next i
min = 1E+38
For i = 1 To n
If A(i) < min Then min = A(i)
Next i
Debug.Print "min ="; min


End Sub


08.05.2011 21:55
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»