Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- i,n,k:longint;
- q:array [1..10000] of real;
- max,min,total,rata:real;
- begin
- read(n);
- for i:= 1 to n do begin
- read(q[i]);
- end;
- max:=(q[1]) ;
- min:=(q[1]) ;
- total:=0;
- for k:= 1 to n do begin
- if (q[k]) > max then
- max:=(q[k]) ;
- if (q[k]) < min then
- min:= (q[k]);
- total:=total + (q[k]);
- end;
- rata:= total/n;
- write(min:0:2, ' ' ,max:02,' ',rata:0:2) ;
- writeln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment