Числа до въвеждане на 0

Да се напише програма, която позволява да се въвеждат числа до въвеждане на 0 и после отпечатва:

  1. сумата на числата
  2. средното им аритметично
  3. броят на положителните
  4. максималното и минималното число

Може да се реши и само някое от условията.

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

Един коментар по Числа до въвеждане на 0

  1. Alya каза:
    program Project1;
    var
      chislo, br: integer;
    
    begin
      br:=0;
      chislo:=1;
      WriteLn('Vavejdaite razlichni chisla:');
      while chislo<>0 do begin
        ReadLn(chislo);
        if chislo>0 then
        br:= br+1;
      end;
      WriteLn('Broqt na poljitelnite e: ', br);
      ReadLn;
    end.         
    

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