задачи по массиву

[tolik_t_t]

1)Данные: натуральное число N массив действительных чисел А(N). Определить для заданного массива число соседств: двух положительных чисел; двух чисел противоположного знака

2)Дан массив целых случайных чисел А (20). В массиве могут быть элементы с равными величинами. Получить все элементы массива, значение которых не повторяется.


3)Даны отрезки а,в,с,d заданные координатами их концов вывести координаты всех точек пересечения этих отрезков. Получить сумму векторов а,в,х,у.

Все задачи на языке турбо паскаль. Никак не могу их решить.

[iama]

1.

var n, i, c1, c2: integer; a: array [1..1000] of integer;
begin
readln(n);
for i := 1 to n do readln(a[i]);

c1 := 0; c2 := 0;

for i := 1 to n-1 do 
  if (a[i] > 0) and (a[i+1] > 0) then inc(c1);

for i := 1 to n-1 do 
  if ((a[i] > 0) and (a[i+1] < 0)) or ((a[i] < 0) and (a[i+1] > 0)) then inc(c2);

writeln(c1, ' ', c2);
readln;
end.

[DRAgon™]

про точки не совсем понял,там только два отрезка я сделал дальше ты сам,если конечно у меня правильно

uses crt;
type vector=(a,b,c,d);
CONST n=8;
CONST v:array [a..d] of integer =(4,6,10,12);     {координаты как я понял}
CONST tx:array [1..N] of integer =(0,4{<-a},1,4{<-b},1,4,3,5);{точки X}
CONST ty:array [1..N] of integer =(2,7{<-a},12,3{<-b},2,2,1,1);{точки Y}
var x,y:integer;
X1,Y1:real;
i:vector;
begin
x:=0;
y:=0;
Writeln('находим сумму');
for i:=a to b do
x:=x+v[i];
Writeln('x= ',x);
for i:=c to d do
y:=y+v[i];
Writeln('Y= ',y);
Writeln('находим пересечения для 2 отрезков(a,b)');
X1:=(tx[1]-tx[2])/(tx[3]-tx[4]);
Y1:=(ty[1]-ty[2])/(ty[3]-ty[4]);
Writeln('x1= ',round(x1):2);
Writeln( 'y1= ',round(y1):2);
Writeln(round(x1):2,'=',round(y1):2)
end.