Помогите решить две задачки по програмирования в Basic

[Olesia]

Помогите решить задачи(Ну или хотя бы напишите как решать основную часть,а как заполнять массивы писать не нужно,:
1.Одномерный массив на десять элементов заполнен случайными чмслами из диапозона от -5 до пяти.Поменять местами элементы,стоящие на четных позициях с элементами ,стоящими на нечетных позициях.
2.Двумерный массив размера 3x4 заполнен случайными числами из диапозона от -10 до 10юДля каждой строки этого массива определить :сумму элементов,максимальный и минимальный элементы

[Хыиуду]

1. Поменять местами a и b:
a=a+b
b=a-b
a=a-b
Пройтись в цикле от 1 до 5 и поменять местами 2i-й и 2i-1-й элементы
2. Поиск минимума и максимума - в разделе "Алгоритмы", сумма строки - в цикле суммируется каждый элемент.

[Olesia]

Спасибо)))я попробую решить таким образом

[Olesia]

Как мне из этого кода сделать так что бы он считал сумму элементов во всем массиве:
Dim a(4, 5), s

Private Sub cmd1_Click()
Print
Randomize
s = 0
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 10)

Next j
Next i
Print
i = 3
For j = 1 To 5
Print a(i, j);
If i = 3 Then s = s + a(i, j)
Next j
Print
Print "Сумма в третьей строке ="; s


End Sub