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

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

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

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

Const

N = 15;

Var

A:array[1 ... N] of integer;

i:integer;

P:real;

Begin

P:=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;

Begin

P:=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;

Begin

Randomize;

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.