Составьте программу которая в массиве A из 20 произвольных чисел находит произведение минимального элемента и среднего арифметического элементов данного массива

Лови)

const

k = 20;

var

A: array [1 ... k] of real;

i: integer;

min, average: real;

begin

writeln ('Enter x:') ;

for i : = 1 to k do

begin

A[i] : = random (k) ;

writeln ('A[', i, '] = ', A[i]) ;

end;

min : = A[i];

average : = 0;

for i : = 1 to k do

begin

average : = average + A[i] / k;

if min > A[i] then

min : = A[i];

end;

writeln (min * average) ;

end.