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

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


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

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


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

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