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

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



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
помогите решить задачу с одномерными массивами VBA 
Автор Сообщение
Начинающий

Регистрация: 16.12.2010
Сообщения: 2

Репутация: 0 [ ? ]
 помогите решить задачу с одномерными массивами VBA
помогите решить хотя бы под одной буквой
Даны целые числа a1, a2, … Известно, что a1 > 0 и что среди a2,a3,… есть хотя бы одно отрицательное число. Пусть a1,…,an – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:

a) max (а1^2, …, аn^2 );б) min (a1+a2, a2+a3, …,an-1+an)
очень прошу помогите
я пробовала решить с максимумом вот что вышло
Sub mac1()
Dim A() As Integer, n As Byte, i As Integer, r As real
n = InputBox("n")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("A(i)")
Next i
Amax = A(1) ^ 2: k = 1
For i = 2 To n
If A(i) > max Then max = A(i) ^ 2: k = i
Next i
MsgBox "max=" & r
End Sub


16.12.2010 7:47
Профиль Отправить email
Начинающий

Регистрация: 16.12.2010
Сообщения: 2

Репутация: 0 [ ? ]
 Re: помогите решить задачу с одномерными массивами VBA
уже по-всякому пыталась,не получается...помогите пожалуйста,срочно надо.....


16.12.2010 12:51
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


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

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


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

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