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?
2 câu trả lời
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.
uses crt;
var i,s,n:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
s:=s+a[i];
end;
writeln('Trung binh cong: ',s/n:0:5);
readln
end.
