Задачи. Массивы. QBasic.

[mikainite]

Здравствуйте!
Искала на форуме, но в основном всё на Паскале.
Помогите, пожалуйста, решить. Или подскажите.
Наверное, лёгкие задачки, но для меня, сколько ни бейся, они непосильны.
1. Дан одномерный массив числовых значений, насчитывающий N элементов. Добавить к элементам массива такой новый элемент, чтобы сумма положительных элементов стала бы равна модулю суммы отрицательных элементов.
2. Выполнить обработку элементов прямоугольной матрицы A, имеющей N строк и M столбцов. Дан номер строки L и номер столбца K, при помощи которых исходная матрица разбивается на четыре части. Найти сумму элементов каждой части.
3. Заданы M строк символов, которые вводятся с клавиатуры.Каждая строка представляет собой слово. Найти все слова, которые начинаются и заканчиваются одинаковыми буквами.
Заранее спасибо.

[Sazary]

1. Проходите по массиву в цикле и считаете суммы отрицательных и положительных элементов:

pol = 0
otr = 0
for i=1 to N
if a(i)>0 then
 pol = pol + a(i)
else
 otr = otr +a(i)
end if
next i

Затем добавляете элемент:

a(N+1) = abs(otr)-abs(pol)

-----------------------------------

2. Вводите матрицу. Читаете L и K.
Имеем 4 переменных под суммы (например. можно использовать массив из 4-х элементов)
Обнуляем их.
Потом запускаем четыре цикла (по одному для каждой части)

FOR i = 1 TO L - 1
 FOR j = 1 TO K - 1
  sum(1) = sum(1) + A(i, j)
 NEXT j
NEXT i

FOR i = 1 TO L - 1
 FOR j = K + 1 TO M
  sum(2) = sum(2) + A(i, j)
 NEXT j
 NEXT i

FOR i = L + 1 TO N
 FOR j = 1 TO K - 1
  sum(3) = sum(3) + A(i, j)
 NEXT j
NEXT i

FOR i = L + 1 TO N
 FOR j = K + 1 TO M
  sum(4) = sum(4) + A(i, j)
 NEXT j
NEXT i

И все.
-----------------------------
3. Тут даже объяснять нечего.. Собственно, даже могу написать:

DIM Str(50) AS STRING
DIM M, i, l AS INTEGER
CLS
INPUT "enter M: "; M
FOR i = 1 TO M
 INPUT "enter string: "; Str(i)
NEXT i
PRINT
FOR i = 1 TO M
 l = LEN(Str(i))
 IF MID$(Str(i), 1, 1) = MID$(Str(i), l, 1) THEN
  PRINT Str(i)
 END IF
NEXT i
END

[mikainite]

Sazary, спасибо за наводки и решение :3
В жизни бы не додумалась.
Пойду пробовать.