Дан массив подсчитать произведения всех элементов массива?

Program p1;

Var

j : Integer;

A: Array[1 ... 5] of Real;

P : Real;

Begin

Randomize;

P:=1;

For j:=1 to 5 do

Begin

A[j]:=random (100) ;

P:=P*A[j];

End;

Writeln ('Произведение всех элементов массива А равно: ', P) ;

End;

Program p2;

Var

j : Integer;

A: Array[1 ... 5] of Real;

Min : Real;

Begin

Randomize;

For j:=1 to 5 do

A[j]:=random (100) ;

Min:=A[1];

For j:=2 to 5 do

If (A[j] < Min)

Then

Min:=A[j];

Writeln ('Значение минимального элемента массива: ', Min) ;

End;