Viết chương trình nhập vào 1 mảng B gồm n phần tử số nguyên. In ra mảng vừa nhập. Tính Trung bình cộng của các phần tử trong mảng

Program Hotboy;

Uses crt;

Var B:array[1..100] of integer;

s,n : longint;

Begin

Clrscr;

s:=0;

Write('nhap so n');

For i:=1 to n do

Write('B[',i,]');

Readln(B[i]);

For i:=1 to n do

S:=S+B[i];

Write('trung binh cac phan tu la',S/n);

Readln

End.

program TBC;

uses crt;

var b:array[1..100] of integer;

      n,i,S:integer;

      T:real

begin

clrscr;

readln(n);

for i:=1 to n do

          begin

          readln(b[i]);

          S:=S+b[i];

          end;

for i:=1 to n do

          write(b[i],' ');

writeln();

T:=S mod n;

write('Trung binh cong cua cac phan tu trong mang la: ',T);

readln

end.