Массивы (FreePascal)

[ScoPld]

одномерный массив:
Дан массив X из чисел (6<n<10). Вычислить:
y = x1 - x2 + x3 - ...- xn-1 +xn


двумерный массив:
Определить, является ли заданная квадратная матрица девятого порядка магическим квадратом, т. е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.

[Hacker19_90]

Дан массив X из чисел (6<n<10). Вычислить:
y = x1 - x2 + x3 - ...- xn-1 +xn

как-то так

znak := 1;
y := 0;
for i := 1 to n do
begin
    y := (y + znak*x[i]);
    znak := (-1)*znakl
end;