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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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