Cacher is the code snippet organizer for pro developers

c = {3, 3.5, 2};
A = -{{5, 7, 4}, {8, 4, 4}};
b = -{720, 480};
x = Table[Symbol["x" <> ToString[i]], {i, Length[c]}];
Ax = A.x;
cons = Join[Table[Ax[[i]] <= b[[i]], {i, Length[b]}], Table[x[[i]] >= 0, {i, Length[c]}]];
Print["c = ", c // MatrixForm, "\tA = ", A // MatrixForm, "\tb= ", b // MatrixForm
sol = NMinimize[{c.x, cons}, x];
Print["minimum value: ", sol[[1]], "\noptimal point: ", sol[[2]]]