Дан массив A3: E8 найти сумму положительных элементов и количество отрицательных

@reky · Регистрация: 12.05.2009

Author24 — интернет-сервис помощи студентам

1) в ячейках E2:E16 находится значение, найти max значение, записать в ячейку E1.
2) Дан массив A3: E8 найти сумму положительных элементов и количество отрицательных.
3) Дан массив A3:A16 найти произведения элементов,стоящих на нечетных местах.

@БурундукЪ · 14.05.2009, 15:45

это в каком басике?
в ВБ6 или ВБА Ехсель?

@reky · 14.05.2009, 19:39 **[ТС]**

в EXEL!!!

Добавлено через 3 часа 40 минут 28 секунд
Блин ну оч срочно надо, помогите плз, хотябы 2 или 3 задачу (1 я сделал)!!!!!!:'(

@БурундукЪ · 14.05.2009, 19:48

решение выложи )
(ты его через ВБА делал?)
буду по твоему решению 2 и 3 делать

@Toxa33rus · 14.05.2009, 22:01

Бурундук, я думал ты делаешь и не стал делать. Ты б хоть подмигнул, я б сделал давно

Сейчас все будет! Без паники!

Добавлено через 10 минут 38 секунд
2)

Visual Basic

Dim summ_poloj As Integer
Dim count_otr As Byte
 
For i = 1 To 5 'A-E
  For j = 3 To 8 '3-8
    If Cells(j, i).Text > 0 Then summ_poloj = summ_poloj + Val(Cells(j, i).Text)
    If Cells(j, i).Text < 0 Then count_otr = count_otr + 1
  Next j
Next i
msg = "Сумма положительных = " & summ_poloj & vbCrLf
msg = msg & "Количество отрицательных = " & count_otr
MsgBox msg

Добавлено через 8 минут 29 секунд
3)

Visual Basic

Dim proizv
proizv = 1
For i = 3 To 16
  If i Mod 2 Then proizv = proizv * Val(Cells(i, 1).Text)
Next i
 
MsgBox "Произведение = " & proizv

Добавлено через 2 минуты 46 секунд
3.02

Visual Basic

Dim proizv
proizv = 1
For i = 3 To 16 Step 2
  proizv = proizv * Val(Cells(i, 1).Text)
Next i
 
MsgBox "Произведение = " & proizv

@reky 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 9
		1
	Дан массив A3: E8 найти сумму положительных элементов и количество отрицательных 14.05.2009, 15:43. Показов 3461. Ответов 4 Метки нет (Все метки) 1) в ячейках E2:E16 находится значение, найти max значение, записать в ячейку E1. 2) Дан массив A3: E8 найти сумму положительных элементов и количество отрицательных. 3) Дан массив A3:A16 найти произведения элементов,стоящих на нечетных местах. 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	14.05.2009, 15:45	2
	это в каком басике? в ВБ6 или ВБА Ехсель? 0

@reky 0 / 0 / 0 Регистрация: 12.05.2009 Сообщений: 9
	14.05.2009, 19:39 [ТС]	3
	в EXEL!!! Добавлено через 3 часа 40 минут 28 секунд Блин ну оч срочно надо, помогите плз, хотябы 2 или 3 задачу (1 я сделал)!!!!!!:'( 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	14.05.2009, 19:48	4
	решение выложи ) (ты его через ВБА делал?) буду по твоему решению 2 и 3 делать 0

	14.05.2009, 22:01

Опции темы