uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.

số các số lẻ nhỏ hơn 100 là:

    (99-1)/2+1=50(số)

tổng các số là:

    (99+1)*50/2=2500

TBC các số là:

      2500/50=50

           Đáp số: 50

\(tbc=\frac{98+0}{2}=49\)

Các số nhỏ hơn 99 là:1,2,3,...,98

Số số hạng của tổng trên là:

(98 - 1) : 1 + 1 = 98 (số)

Tổng trên là:

(98 + 1) . 98 : 2 = 4851

Trung bình cộng các số nhỏ hơn 99 là:

4851 : 98 = 49,5

Đáp số: 49,5

Số lượng các số hang:

  (99-1):2+1=50

Tổng là:

 (1+99)x50:2=2500

TBC là:

2500:50=50

số lẻ nhỏ nhất:1    số lẻ lớn nhất:99 

=>{99-1}:2+1=50

=>{99+1}nhân25:50=50

đáp số:50

TBC các số lẻ nhỏ hơn 100 là 50

số các số lẻ nhỏ hơn 100 là:

    (99-1)/2+1=50(số)

tổng các số là:

    (99+1)*50/2=2500

TBC các số là:

      2500/50=50

           Đáp số: 50

trung bình cộng của các số nhỏ hơn 25

ta sẽ tính tổng các số nhỏ hơn 25:

trước tiên sẽ tính số số hạng:

(2014 - 0) : 1 + 1 = 2015 (số)

tổng là:

(2014 + 0) * 2015 : 2 = 2029105

trung bình cộng:

2029105 : 2015 = 1007

đáp số: 1007

ta có: 0 đến 2014

trung bình cộng là 

  ( 2014-0) : 2=1007

    đáp số: 1007