respect4

rata2

Apr 17th, 2013
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.49 KB | None | 0 0
  1. var
  2. i,n,k:longint;
  3. q:array [1..10000] of real;
  4. max,min,total,rata:real;
  5.  
  6. begin
  7.  read(n);
  8.   for i:= 1 to n do begin
  9.  read(q[i]);
  10.  end;
  11.  
  12. max:=(q[1])  ;
  13. min:=(q[1])  ;
  14. total:=0;
  15.           for k:= 1 to n do begin
  16.           if (q[k]) > max then
  17.              max:=(q[k]) ;
  18.           if (q[k]) < min then
  19.              min:= (q[k]);
  20.           total:=total + (q[k]);
  21.  
  22.         end;
  23.         rata:= total/n;
  24.         write(min:0:2, ' ' ,max:02,' ',rata:0:2) ;
  25.         writeln;
  26.         end.
Advertisement
Add Comment
Please, Sign In to add comment