Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: c) Tính tổng và trung bình cộng của các phần tử ch

0 bình luận về “Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực hiện các chương trình sau: c) Tính tổng và trung bình cộng của các phần tử ch”

1. uses crt;
   var n,i,d,t:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘n(n<=15)= ‘);readlN(N);
      for i:=1 to n do
          begin
             write(‘a[‘,i,’]=’);readln(a[i]);
          end;
      for i:=1 to n do
         if a[i] mod 2=0 then begin inc(t,a[i]); inc(d); end;
      writeln(‘Tong cac phan tu chan: ‘,t);
      writeln(‘Trung binh cong cac phan tu chan: ‘,t/d:0:2);
   readln
   end.

   Bình luận