program fgf;

Uses
    sysutils;

var
    ar: array of double;
    n, i, indexmin: integer;
    pr, min, sum: real;

begin
    write('Введите количесnво элементов массива: ');
    readln(n);
    Setlength(ar, n);

    for i := 1 to n do
    begin
        writeln('введите значение элемента');
        readln(ar[i]);
    end;

    pr := 1;
    for i := 1 to n do
    begin
        if ar[i] > 0 then
            pr := pr * ar[i];
    end;
    Write('Произведение всех положительных элементов: ', pr:0:0);


 min:=ar[1];
 for i:=1 to n do
 if ar[i] < min then
   begin
   min:= ar[i];
   indexmin:=i;
   end;
 writeln;
 writeln('Минимальный элемент массива равен ',min:0:2,' и является ',indexmin,'-ым элементом массива');
 sum:=0;
 for i:=0 to indexmin-1 do
 sum:=sum+ar[i];
 writeln;
 writeln('Сумма элементов массива, расположенных до ',indexmin,'-ого элемента равна: ', sum:0:2);

readln

end.