задача

[nazamat]

Помогите пожалуйста решить задачу=)
вот вся задача:
Часть 1, вычислить значения 38 элементов одномерного целочисленного массива Х в интервале (-10;6), с использованием генератора случайных чисел
я его как бы сделал:

Program Work_4;

Type vector=array[1..100] of integer;
var Vx, n, i, a, b: integer;
X: vector;
Dev : text;
name: string;
Sg: real;

Procedure Part_1(Vr,n,a,b:integer; var X:vector);
var i:integer;
Begin
If Vx<>1 then randomize;
for i:=1 to n do x:=a+Round((b-a)*Random(100)/100);
end;

Часть 2.
Вычислить среднегармоническое значение каждых третьих элементов последней четверти
Часть 3.
Определить наибольший по абсолютной величине среди четных по значению элементов первой трети массива
Часть 4.
Упорядочить ненулевые элементы первой половины массива по возрастанию квадратов значений

помогите плиз((

[Stilet]

среднегармоническое значение

А что это такое? Поясни пож.

[nazamat]

Среднегармоническое значение положительных элементов заданного множества A = {a1, a2, a3, …, an} вычисляется по формуле

где К - количество положительных элементов в множестве.

Если все элементы множества имеют положительные значения, то справедливо условие

Ga <= Pa <= Sa.

Если множество пустое (А = ø) или в нём нет нужных элементов (к = 0), принять значение Sa, Qa, Pa или Ga равным нулю.