👤

Fie 4 numere reale a,b,c,d. Elaborati o functie, in Pascal , care determina minimul dintre acestea. Va rog mult! ajutati-ma! Dau coroana!!



Răspuns :

program proj_min_num; 
var  a,b,c,d,min: integer;
begin  
WriteLn('Introduceti 4 numere (apasati enter dupa fiecare):');  
ReadLn(a);  
ReadLn(b);
  ReadLn(c);
  ReadLn(d);
   WriteLn('Cel mai mic este: ', Min(a,b,c,d));  
ReadLn;end.