SHARE
TWEET

Untitled

a guest Jan 18th, 2020 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project6;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils, System.Character;
  9.   var
  10.   load, cc: Integer;
  11.   inp: integer;
  12.   procedure Calc();
  13.   begin
  14.   repeat
  15.   Readln(inp);
  16.   if (inp in [1..100]) then
  17.   begin
  18.   load:= load + inp;
  19.   inc(cc);
  20.   Writeln('Среднее - ', Round(load/cc));
  21.   end;
  22. until inp = 0;
  23.   end;
  24. begin
  25. Writeln('Вводите числа...');
  26. cc:= 0;
  27. Calc();
  28. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top