Advertisement
Guest User

Untitled

a guest
Oct 17th, 2018
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. var n, i, k, sum,temp:integer;
  2. begin
  3.    readln(temp);
  4.    k:=1;
  5.    sum:=temp;
  6.    while(temp <> 0) do begin
  7.       readln(temp);
  8.       if (temp<>0) and (temp>=10) and (temp<=99) then begin
  9.          k:=k+1;
  10.          sum:=sum+temp;
  11.       end;
  12.    end;
  13.    
  14.    if (k = 0) then
  15.       writeln('NO')
  16.    else
  17.       writeln(sum/k);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement