Viết chương trình sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím

0 bình luận về “Viết chương trình sử dụng biến mảng để tính giá trị trung bình của N số nguyên được nhập từ bàn phím”

1. program bt;

   var i:byte

   begin

   writeln (‘cac so tu 1 toi 20’);

   for i:= 1 to 20 do

   writeln (i);

   readln

   end;

   vote cho minh 5 sao với

   Bình luận

2. program bt;

   var a:array[1..9999]  of longint;

         n,tb,dem: longint;

   writeln (‘nhap n’); readln (n);

   for i:= 1 to n do 

   begin

   writeln (‘nhap pt thu ‘ , i, ” );

   readln (a[i]);

   end;

   tb:= 0;

   for i:=1 to  n do

   begin

   tb := tb+a[i] ;

   dem:= dem+1;

   end;

   tb:= tb/dem;

   writeln (‘gia tri tb la’,tb);

   readln

   end. 

   Nho vote cho minh nha

   Bình luận