Дан числовой массив А, состоящий из п натуральных чисел. Найти ...

Мария

const N = 10;var a: array[1..N] of integer; i, min, max: integer;begin min := 30; for i := 1 to N do begin a[i] := random(30); if(a[i] < min) then min := a[i]; if(a[i] > max) then max := a[i]; write(a[i], ' '); end; writeln('Произведение: ', min * max);end.