Cho một dãy số nguyên gồm 10 phần tử tính giá trị Trung bình của 10 phần tử đó
1 câu trả lời
uses crt;
var a:array[1..50] of longint;
n,i,tb:longint;
begin
for i:=1 to 10 do
write('a[',i,']='); readln(a[i]);
for i:=1 to 10 do n:=n+a[i];
tb:=n/10;
write('Trung binh 10 phan tu vua nhap la: ',tb);
readln
end.
Ctr minh chua chay ban chay thu co j minh sua cho nhe.
