Массивы в Qbasic

[Princessa]

Задача 1 : Массив в 10 элементов заполнить случайными двухзначными числами, вывести на экран сумму четных чисел.
 Задача 2 : Массив двухмерный (4,4) заполнить двухзначными числами, вывести ввиде таблицы, поменять местами максимальный и минимальный размер.

Пробовала задачу 1:
вообщем
CLS
Dim a(10)
For i = 1 to 10
randomize timer
A(i) = INT (rnd*80)+10
?A(i);
Next i

а дальше там надо общаться с IF и MOD только непонятно...

Задача 2 ... тоже начала
CLS
Dim A(4,4)
For i = 1 to 4
For x = 1 to 4
Randomize timer
A(i,x)=INT (rnd*80)+10
Next x
Next i
For i = 1 to 4
For x = 1 to 4
?A (i,x);
Next x
?
Next i

Я думаю правильно начала, но дальше просто ушла куда-то... Помогите очень прошу)

[Selyd]

Задача 1 :
1. randomize timer наверное надо поставить вне цикла?
2. Генератор даёт числа с [0; 1]. Кажется 89*rnd+10 и взять целую часть.
    Отрубить хвост.
3. Суммировать чётные.
s=0
for i=1 to 10
if (a(i)/2)*2=a(i) then s=s+a(i)
next i
Проверь на всякий случай работает ли проверка чётности (a(i)/2)*2=a(i)
или вставь свою.

Задача 2 :
1. вместо x возьми j - оно целое.
2. Печать массива правильна
3. Обмен наверное величин, а не размеров.

Запуск поиска минимума максимума и их номеров.
Ami=A(1,1): mii=1: mij=1
Ama=A(1,1): mai=1: maj=1
For i = 1 to 4
For j = 1 to 4
здесь ищешь элементы и их места запоминаешь
Next j
Next i
потом обмен