Nhập dãy số nguyên A từ bàn phím.tính tổng và giá trị trung bình của các phần tử trong mảng. Giúp mình với ạ

0 bình luận về “Nhập dãy số nguyên A từ bàn phím.tính tổng và giá trị trung bình của các phần tử trong mảng. Giúp mình với ạ”

1. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   s:=s+A[i];
           End;
           Write(s/n:0:2);
           Readln
   End.

   Bình luận