Viết chương trình nhập dãy n số nguyên in ra tổng và trung bình cộng các phần tử có trong dãy.

0 bình luận về “Viết chương trình nhập dãy n số nguyên in ra tổng và trung bình cộng các phần tử có trong dãy.”

1. program ct;

   uses crt;

   var i,n,S:integer; tbc:real;

   A:array[1..100] of integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     S:=0;

        for i:=1 to n do

     begin

      S:=S+A[i];

      tbc:=S/n;

     end;

     writeln(‘tong la;’,S);

     writeln(‘trung binh cong la:’,tbc);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var A:array[1..1000] of integer;

         i,n:integer;

         S,Tbc:longint;

   begin clrscr;

      write(‘Nhap so phan tu n: ‘); readln(n);

     for i:=1 to n do

       begin

          writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

       end;

       S:=0;

     for i:=1 to n do

        begin

           S:=S+A[i];

           Tbc:=S/n;

        end;

      writeln(‘Tong la: ‘,S);

      writeln(‘Trung binh cong la: ‘,Tbc);

   readln;

   end.

   Học tốt!

   Bình luận