Задача на массивы

@Slim _ ShaDy · Регистрация: 16.05.2011

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

Кто может помочь с задачей:

Заменить все чётные элементы массива на их квадраты, а нечётные удвоить (VBA)

@Catstail · 04.01.2014, 14:01

Visual Basic

Sub Task(A() as integer, Optional p as integer=0)
      if p=0 then
         Task A(),p+1
      elseIf p > Ubound(A,1) then
         Exit Sub  
      elseIf (A(p) mod 2) = 0 then
           A(p)=A(p)*A(p)
           Task A(), p+1
      else 
           A(p)=A(p)+A(p)
           Task A(), p+1
      end if
End Sub

@Mupi · 04.01.2014, 19:05

Найти сумму элементов массива над главной диагональю
глянь эту тему еще пож

@Slim _ ShaDy 4 / 4 / 4 Регистрация: 16.05.2011 Сообщений: 19
		1
	Задача на массивы 03.01.2014, 22:14. Показов 740. Ответов 2 Метки нет (Все метки) Кто может помочь с задачей: Заменить все чётные элементы массива на их квадраты, а нечётные удвоить (VBA) 0

@Mupi 0 / 0 / 0 Регистрация: 04.01.2014 Сообщений: 2
	04.01.2014, 19:05	3
	Найти сумму элементов массива над главной диагональю глянь эту тему еще пож 0