задачи(массивы)

[Albert]

Помогите пожалуйста решить задачи про массивы( в Паскале)
1. Задайте массив из 10 элементов с помощью датчика случайных чисел и поменяйте знак всем нечетным элементам массива на противоположенный. Выведите на экран исходный и измененый массивы.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Все элементы, которые больше 55, замените максимальным. Выведите на экран исходный и измененый массивы.

Очень надо

[inferno[BoD]]

Как это из десятка случайных чисел? Random(10)? Если да то условие второй задачи то беж элемент массива= 55 никогда не произойдет.
1 задача:
{задаешь массив и переменную для счетчика}
Var
I: byte;
A: Array [1..10] of byte;
Begin
{присваиваешь всем элементам массива случайные значения от 0 до 9}
Writeln('старый массив:');
For i:=1 to 10 do begin
A[i]:=random(10);
{как выводить результат на pascal красиво я не знаю сам с этим разберись }
Writeln(a[i]);
End;
{каждый второй элемент массива *(-1) и опять же выводим}
Writeln('новый массив:');
For i:=1 to 5 do begin
I:=i*2;
A[i]:=a[i]*(-1);
Writeln(a[i-1]);
Writeln(a[i]);
End;
End.

Добавлено через 2 минуты
Если какие вопросы стучи в асю:240180300