Помогите с паскалем! 4 задачи

Question

1)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений. 
2)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0. 
3)Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его, возводя в квадрат все элементы с чётными индексами. 
4)Составьте программу, которая заполняет массив а [1..10] с клавиатуры, затем преобразовывает массив, заменяя все отрицательные элементы их модулями.

Алексей Брусов · Accepted Answer

на первые три задачи вот тебе подсказка: 
 
... 
for i :=1 to 10 do 
begin 
 a := random(10)+1; {в скобках может быть и 9, а не 10, не помню в паскале входит граница верхняя или нет} 
 write(a,' '); 
end; 
{это была одинаковая часть для первых 3 задач} 
{теперь преобразование} 
for i :=1 to 10 do 
begin 
 if a<0 then a := a+1; {то есть, все отрицательные элементы увеличивает на 1, думаю сам справишься} 
 write(a,' '); 
end;

Кристина Новикова · Answer

1. Функция рандом, перебор и проверка элемент mod 2. 
2. Аналогично, аналогично. 
3. Аналогично, в квадрат усли i mod2 равно нулю 
4. readln по циклу, перебор с првоеркой если меньше нуля использование abs() 
 
А дальше включайте мозги, как это написать на Паскале, это не сервис написания готовых программ)