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

Question

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

maingoc · Answer

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.

mocmien · Answer

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.

0 bình luận về “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”