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

Публикувано на 19 април, четвъртък от Данаил

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

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

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

  1. kaloyan каза:
    19 април, четвъртък в 16:18 
    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.

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