Advertisement
Guest User

Untitled

a guest
Jan 16th, 2018
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. const
  2.   N = 5;
  3.  
  4. var
  5.   a: array[1..N] of integer;
  6.   i, x, y: integer;
  7.   s: real;
  8.  
  9. begin
  10.   for i := 1 to N do
  11.     readln(a[i]);
  12.   x := 0; //sum
  13.   y := 0; //k
  14.   for i := 1 to N do
  15.     if (a[i] > 20 ) then
  16.     begin
  17.       x := x + a[i];
  18.       y := y + 1;
  19.     end;
  20.   s := x / y;
  21.   writeln(s);
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement