Question

Elaborati o functie care calculeaza: minimul din numerele a,b,c,d
PASCAL

Answer 1

function min(a, b, c, d: integer): integer;
var
   r: integer;
begin
   r := a;
   if (b<r) then
      r := b;
   if (c<r) then
      r := c;
   if (d<r) then
      r := d;
   max := r;
end;

Ceva de genul, posibil sa fie gresita sintaxa pe undeva, dar cred ca te descurci sa faci fix ;)