Помогите решить две задачи на массивы (Turbo Pascal)

[cinik]

№1
Даны два массива Х и Y,состоящие из N элементов каждый.Каждая пара элементов вида (Xi,Yi)задаёт абсциссу и ординату одной (i-той) точки на плоскости XOY (всего точек N).Определить,у какого числа этих точек положительна как абсцисса,так и ордината,а также найти среднее значение ординат всех прочих точек из числа заданых.
№2
Даны два массива A и С,состоящие из N элементов каждый.Определить среднее арифметическое значение наименьших элементов массивов A и C.

[DM_bite]

2.

program Xd;
const n=10;
var a,c: array [1..n] of integer;
    i,minA,minC: integer;
    sr:real;
    begin
    randomize;
    minA:= n;
    minC:= n;
    for i:= 1 to n do
     begin
     a[i]:= random(n)+1;
     if a[i]<minA then minA:= a[i];
     c[i]:= random(n)+1;
     if c[i]<minC then minC:= c[i];
     end;
     sr:= (minA+minC)/2;
     WriteLn(sr);
     ReadLn;
     end.

[Chudo4258]

1

k:=0;
S:=0;
for i:=1 to n do
 if (X[i]>0) and (Y[i]>0) then inc(k)
                                 else S:=S+Y[i];

S:=S/(n-k);

k-число точек у которых положительна как абсцисса,так и ордината
S - среднее значение ординат всех прочих точек из числа заданых.