Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:49 p.m.

FORMAT: Text only

SIZE: 414 Bytes

Raw Download

HITS: 880

Report
  1. VAR x:ARRAY[1..100] OF REAL;
  2. a,b,s:REAL;
  3. i,d,n:INTEGER;
  4. BEGIN
  5. s:=0;d:=0;
  6. Write('Nhap n: ');
  7. Readln(n);
  8. Write('Nhap a, b : ');
  9. readln(a,b);
  10. FOR i:=1 TO n DO
  11. BEGIN
  12. Write('Nhap x',i,' : ');
  13. readln(x[i]);
  14. END;
  15. FOR i:=1 TO n DO
  16. IF (x[i] > a) AND (x[i] < b)
  17. THEN BEGIN inc(d); s:=s+x[i]; END;
  18. Write('TBC = ',s/d):2:5;
  19. readln;
  20. END.
comments powered by Disqus