Toggle navigation
Home
Latest pastes
FAQ
Random
Register
Login
Untitled
SUBMITTED BY:
Guest
DATE:
May 10, 2015, 4:51 p.m.
FORMAT:
Text only
SIZE:
525 Bytes
Raw
Download
Tweet
HITS:
959
Go to comments
Report
Viết chương trình tính trung bình cộng của các số nằm trong khoảng (a,b) trong mảng
VAR x:ARRAY[1..100] OF REAL;
a,b,s:REAL;
i,d,n:INTEGER;
BEGIN
s:=0;d:=0;
Write('Nhap n: ');
Readln(n);
Write('Nhap a, b : ');
readln(a,b);
FOR i:=1 TO n DO
BEGIN
Write('Nhap x',i,' : ');
readln(x[i]);
END;
FOR i:=1 TO n DO
IF (x[i] > a) AND (x[i] < b)
THEN BEGIN inc(d); s:=s+x[i]; END;
Write('TBC = ',s/d):2:5;
readln;
END.
Please enable JavaScript to view the
comments powered by Disqus.
comments powered by
Disqus