составить программы

[quarty]

1) Дан массив, состоящий из 8 случайных чисел от -5 до 10. Все его элементы уменьшить на число A (число A введите с клавиатуры).
2) Дан массив, состоящий из 9 вещественных чисел (задаётся в разделе const ). Все его элементы массива с чётными номерами заменить на их абсолютную велечину.

[rubius2008]

1. cлуч. числа

for i:=1 to 8 do x[i]:=random(16)-5;

уменьшение

for i:=1 to 8 do x[i]:=x[i]-A;

2.

for i:=1 to n do if not odd(i) then x[i]:=abs(x[i]);

[quarty]

Спасибо большое