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ử đó

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

   Bình luận