viết chương trình nhập mảng A gồm n phân tử là số nguyên. a) In ra màn hình từng phân tử của dãy số. b) tính tổng và trung bình cộng của các phân tử đ

0 bình luận về “viết chương trình nhập mảng A gồm n phân tử là số nguyên. a) In ra màn hình từng phân tử của dãy số. b) tính tổng và trung bình cộng của các phân tử đ”

1. uses crt;
   var n,i,s:longint; a:array[1..100]of longint; 
   begin
   clrscr;
      readln(n);
      for i:=1 to n do
         begin
            readln(a[i]);
            inc(s,a[i]);
         end;
      write(‘Day so: ‘);
      for i:=1 to n do write(a[i],’ ‘); writeln;
      writeln(‘Tong: ‘,s);
      writeln(‘Trung binh cong: ‘,s/n:0:2);
   readln
   end.

   Bình luận

2. program mang;

   uses crt;

   var A;array [1..500] of integer;

         n,i,T: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

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

                     T:=T+A[i];

            end;

            write(‘a) Day vua nhap: ‘);

            for i:=1 to n do write(A[i],’  ‘);

            writeln;

            writeln(‘b) Tong cac phan tu = ‘,T);

            write(‘   Trung binh cong cac phan tu = ‘,T/n:2:1);

            readln

   End.

   Bình luận