Най-малкото между 3 числа

Напишете програма, която при въвеждане на 3 числа извежда най-малкото от тях.

По желание: Направете програмата да работи за повече числа, например за пет.

Публикувано в с етикети . Постоянна връзка.

2 коментара по Най-малкото между 3 числа

  1. Боряна каза:
    program bori;
    var
      chislo, min: integer;
    begin
      WriteLn('Sega shte otkriem nai-malkoto ot pet chisla.');
    
      WriteLn('Vavedi chislo:');
      ReadLn(chislo);
      min:=chislo;
    
      WriteLn('Vavedi drugo chislo:');
      ReadLn(chislo);
      if chislo<min then
         min:=chislo;
    
      WriteLn('Vavedi drugo chislo:');
      ReadLn(chislo);
      if chislo<min then
         min:=chislo;
    
      WriteLn('Vavedi drugo chislo:');
      ReadLn(chislo);
      if chislo<min then
         min:=chislo;
    
      WriteLn('Vavedi drugo chislo:');
      ReadLn(chislo);
      if chislo<min then
         min:=chislo;
    
      WriteLn('Nai-malkoto chislo e ', min);
      ReadLn;
    end.
      

Вашият коментар