ИНФОРМАТИКА, ПОМОГИТЕ. ПАСКАЛЬ, МАССИВЫ.
Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
2) произведение элементов, стоящих на чётных местах;
3) количество отрицательных элементов.
4) Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить.

a: array [1..50] of integer;i, pr, otr: integer;beginrandomize;for i := 1 to 10 do   a[i] := random(50) - 5;otr := 0;pr := a[2];for i := 1 to 10 do  begin     if (a[i] < 0) then inc(otr);     if (i mod 2 = 0) then       pr := pr * a[i];  end;writeln('Отрицательных - ',otr,' Произведение - ',pr);for i := 1 to 12 do beginread(a[i]);if(a[i] > 0) theninc(a[i],100)elsea[i] := 0;write(a[i],' ');end;end;

вот держи,будут вопросы-пиши в лс