Программирование и блок схема

[locsli]

1.Вычислить значения 38 элементов одномерного целочисленного массива R в интервале (- 6;10) с использованием генератора случайных чисел.
2. Вычислить среднегармоническое значение четных по номеру элементов всего массива.
3. Определить наибольший по абсолютной величине среди принадлежащих [a/2;b/2] элементов второй четверти массива.
4. Упорядочить ненулевые элементы второй четверти по возрастанию значений.

[ZX Spectrum-128]

2.

Sg:=0;
For i:=1 to n do
  if i mod 2=0 then
    sg:=sg+1/a[i];
Sg:=n/sg;

[Mad_Cat]

1)

randomize;
for i:=1 to 38 do
mas[i]:=random(17)-6;