Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от -10 000 до 10 000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых кратна 7 и отрицательна. Под парой подразумевается два подряд идущих элемента массива.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Бейсик

N = 30
DIM A(N) AS INTEGER
DIM I, J, К AS INTEGER
FOR I = 1 TO N
    INPUT A(I)
NEXT I
...
END

Алгоритмический язык

ал г нач
    цел N = 30 
    цел таб а[1:N] 
    цел i, j, k 
    нц для i от 1 до N 
        ввод а[i] 
    кц
...
кон

Паскаль

const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
    for i := 1 to N do
        readln(a[i]);
...
end.

Си

#include <stdio.h>
# define N 30 void main()
{
    int a[N]; 
    int i, j, k; 
    for (i =0; i < N; i++) 
        scanf("%d", &a[i]);
...
}

Естественный язык

Объявляем массив А из 30 элементов.
Объявляем целочисленные переменные I, J, К.
В цикле от 1 до 30 вводим элементы массива А с 1-го по 30-й.
...