запишите в клетках квадрата 3*3 числа -1;2;-3;4;-5;6;-7;8;-9 так , чтобы их произведения по всем горизонталям,вертикалям и диагоналям были положительными.

Элементы одномерного массива С(T) получаются расчетом по формуле С(T)= sqrt(T)* tg(2T), где T- позиция элемента в массиве С(T). Определите, какая раз-ность двух соседних элементов в этом массиве (1-ый и 2-ой, 2-ой и 3-ий, 3-ий и 4-ый и т.д.) будет являться наименьшей. Сформируйте новый массив T(Y), состоящий из разностей пар элементов массива С(Т).
у меня есть начало,но я незнаю что делать дальше
Program massiv;
Const N=10;
Var Rmin: real;
I,j,i:integer;
T,C:array[1..N] of real; 
Begin 
For i:=1 to N do 
Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write (C[i]:5:2, ‘ ‘);
End;
Rmin:=C[1]-C[2];
J:=1;
For i:=2 toN-1 do 
If Rmin>C[i]-C[i+1] then begin 
Rmin:=C[i]-C[i+1];
l:=i;

Придумайте пожалуйста:2 предложения с качественными прилагательными, 2 предложения с относительными и 2 предложения с притяжательными!! Всего 6 предложений! Спасибо большое!)))