Паскаль, Процедуры обработки массивов

[Omiira]

№1 Даны 2 массива А и С, состоящие из N элементов каждый. Определить номер наименьшего по абсолютной величине разности вида Ai-Ci.

№2 Найти отношение СХ/СУ, где СХ и СУ соответственно - среднее арифметическое массива Х1, Х2,...Хn и массива У1, У2,...Уn.

№3 Даны 2 массива Х и У, состоящие из N элементов каждый. Проверяя на равенство элементы пар (Х1, У1), (Х2, У2),...(Хn, Уn) подсчитать число случаев равенства элементов пары; одновременно найти среднее арифметическое элементов массива Х.

[Хыиуду]

1. min=1;
for i:=2 to N do if abs(a-c)<abs(a[min]-c[min]) then min:=i;
2. for i:=1 to n do begin inc(cx, x); inc(cy, y); end;
writeln(cx/cy);
3. for i:=1 to n do begin inc(sx, x); if x=y then inc(count); end;

[Omiira]

спасибо =)