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. uses crt;
   var A:array[1..1000] of integer;
       n,i,tong:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         tong:=tong+A[i];
      end;
      write(‘Tong la: ‘,tong);
      writeln;
      write(‘Trung binh cong la: ‘,tong/n:4:2);
      readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var n,i,s:integer;    TBC:real;

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

   begin

   clrscr;

   write(‘nhap cac phan tu:=’);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 s:=s+a[i];

   writeln(‘tong la:’,s);

   TBC:=s/n;

   writeln(‘trung binh cong cua cac phan tu la:=’,TBC:2:2);

   readln;

   end.

   Bình luận