Нужна помощь!! 1. Заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15. Обеспечить вывод исходного массива на экран. Подсчитать произведение четных элементов массива. 2. Дан массив из 7 вещественных элементов. Обеспечить заполнение массива с клавиатуры. Преобразовать массив: всем положительным элементам присвоить значение 100. Обеспечить вывод получившегося массива на экран. 3. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива с клавиатуры. Подсчитать сумму отрицательных элементов массива, стоящих на четных местах.

randomize; write (' формируем массив');

a[i]:= 5+random (10);

if a[i] mod 2=0 then p:=p*a[i]; end; write ('p='p); end.

2var a:array [1..7] of real ;i:integer;beginwrite ('заполни массив');for i:=1 to 7 do beginreadln(a[i]);if a[i]>0 then a[i]:=100;end;writeln ('выведи новый массив');for i:=1 to 7  dowriteln ( a[i]);end.3 var a:array [1..10] of real;i:integer;s:real;begins:=0;for i:=1 to 10 do beginreadln(a[i]);if  i mod 2=0 then s:=s+a[i];end;write ('сумма чисел=' s);end.