Составить программу для вычисления F=C+(A+B) / (A*B+1) A-наименьший элемент массива;…

Var v: array[1… 10]of integer; f: real; i: byte; a,b,c,d,min,k: integer; beginfor i: =1 to 10 do v[i]: =random (20) -10; readln (d); min: =v[1]; b: =0; for i: =1 to 10 do beginif v[i]<0 then beginb: =b+1; end; if v[i]>min thena: =min; end; k: =0; for i: =1 to 10 do beginif v[i] комментировать