Во имя радостных мессий, помогите хоть одну задачку. Не шарю(

Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов массива.

Дан массив из 20 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести все элементы, кратные 5.

Заполнить одномерный массив из n-элементов случайными числами от 0 до 30, вывести элементы на экран, а затем найти и вывести среднее арифметическое всех нечетных элементов. [!] Переменная n вводится с клавиатуры. [!] Всех нечетных элементов - нечетным должен быть индекс [!]

Const   N = 15;Var   A:array[1..N] of integer;   i:integer;   P:real;BeginP:=1;Randomize;Write('Исходный массив:');For i:=1 to N do    Begin    A[i]:=random(21)-10;    Write(' ',A[i]);    P:=P*A[i]    End;WriteLn;WriteLn('P = ',P);End.Const   N = 20;Var   A:array[1..N] of integer;   i:integer;   P:real;BeginP:=1;Randomize;Write('Исходный массив:');For i:=1 to N do    Begin    A[i]:=random(21)-10;    Write(' ',A[i]);    P:=P*A[i]    End;WriteLn;Write('Элементы, кратные пяти:');For i:= 1 to N do    if A[i] mod 5 = 0 then Write(' ',A[i])End.Var   A:array[1..10000] of integer;   i,n:integer;   S:real;BeginRandomize;Write('n = ');ReadLn(n);Write('Исходный массив:');For i:=1 to N do    Begin    A[i]:=random(31);    Write(' ',A[i]);    if i mod 2 <> 0 then S:=S+A[i]    End;WriteLn;WriteLn('Sr = ',S/((n div 2)+(n mod 2)));End.