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

Публикувано на 08 февруари, понеделник от Данаил

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

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

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

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

  1. Боряна каза:
    11 февруари, четвъртък в 08:08 
    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.

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