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

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

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

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

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

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

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

  1. Alya каза:
    28 март, понеделник в 16:41 
    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.

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