Две задачи на массивы.

[Inside_over]

Здравствуйте. Выручите, пожалуйста.
Завтра зачет, нужно решить дома две задачи. Помогите пожалуйста, очень прошу. Информатика далеко не ведущий предмет, поэтому я очень плохо понимаю.
Нужно написать программу в Turbo Basic.
1)Найти номера пары последовательных элементов массива В(10), отношения которых меньше единицы.
2)Составить программу для вычисления суммы положительных и суммы отрицательных элементов матрицы A(n*m) и их количества.
Спасибо огромное заранее. Просматривала темы по поиску - ничего подобного не нашла.

[Inside_over]

ну помогите пожалуйста, завтра же зачет ((

[Hacker19_90]

2)

sumotr := 0;
kolotr := 0;
sumpol := 0;
kolpol := 0;
for i := 1 to n do
begin
    for j := 1 to m do
    begin
        if a[i,j] > 0 then
        begin
            sumpol := sumpol + a[i,j];
            kolpol := kolpol + 1;
        end;
        if a[i,j] < 0 then
        begin
            sumotr := sumotr + a[i,j];
            kolotr := kolotr + 1;
        end;
    end;
end;