Произведение на положителните числа

Да се направи програма, която позволява въвеждане на числа до въвеждане на 0 и извежда най-малкото, най-голямото от тях, броят им и дали има отрицателни сред тях.

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

Един коментар по Произведение на положителните числа

  1. kaloyan каза:
    VAR chislo,min,max,otricatelni,broi : integer;
    BEGIN
      write('vavedete chislo: '); readln(chislo);
      min:=chislo;
      max:=chislo;
      if chislo<0 then otricatelni:=1 else otricatelni:=0;
      broi:=0;
        repeat
          write('vavedete chislo: '); readln(chislo);
            if ((chislo<min) and (chislo<>0)) then min:=chislo;
            if max<chislo then max:=chislo;
            if chislo<0 then otricatelni:=otricatelni+1;
            broi:=broi+1;
        until(chislo=0);
      writeln('nai-malkoto chislo e: ',min);
      writeln('nai-golyamoto chislo e: ',max);
      writeln('ot ', broi ,' vie ste vaveli ',otricatelni,' otricatelni chisla');
    readln;
    END.      
    

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