Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều.
Tính trung bình cộng các giá trị của mảng?
Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều. Tính trung bình cộng các giá trị của mảng?
By Abigail
By Abigail
Bạn nào giả đầu đủ bài này giúp mình với mình cảm ơn nhiều.
Tính trung bình cộng các giá trị của mảng?
uses crt;
var a:array[1..1000] of integer;i,n:integer;tc:longint;tbc:real;
BEGIN
clrscr;
write(‘Nhap n: ‘);readln(n);
for i:=1 to n do begin
Write(‘Nhap phan tu thu ‘,i,’ : ‘);readln(a[i]); end;
for i:=1 to n do
tc:=tc+a[i];
tbc:=tc/n;
writeln(‘Trung binh cong cac phan tu trong mang la: ‘,tbc:6:3);
readln
END.