Lập trình nhân giá trị cho mảng số thực của 100 phần tử ,tính trung bình cộng của mảng rồi in kết quả ra màn hình

0 bình luận về “Lập trình nhân giá trị cho mảng số thực của 100 phần tử ,tính trung bình cộng của mảng rồi in kết quả ra màn hình”

1. Uses crt;
   Var i,s,t,tb: extended;
   Begin
           Clrscr;
           s:=1; t:=0;
           For i:=1 to 100 do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           For i:=1 to 100 do
           Begin
                   s:=s*A[i];
                   t:=t+A[i];
           End;

           tb:=t/100;

           Write(‘Tich: ‘,s:5:2);
           Writeln;
           Write(‘Trung binh cong: ‘,tb:5:2);
           Readln
   End. 

   Bình luận