Cho mảng a gồm 10 phần tử thuộc kiểu nguyên. Viết hàm tính giá trị trung bình của mảng a Giúp mình với mọi người ơiiii😿
1 câu trả lời
program mang;
var i:longint;
a:array[1..10] of longint;
function tb:real;
begin
tb:=0;
for i:=1 to 10 do tb:=tb+a[i];
tb:=tb/10;
end;
begin
for i:=1 to 10 do read(a[i]);
write(tb:10:1);readln;
end.
