Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 6)

Câu 68: Cho mảng T gồm 20 phần tử thuộc kiểu nguyên. Viết chương trình thực hiện các yêu cầu sau:

a. Viết thủ tục nhập giá trị cho mảng T từ bàn phím

b. Viết hàm tính giá trị trung bình của các phần từ vừa nhập

c. Viết hàm tính tổng các số chia hết cho X (X nhập từ bàn phím)

 Lời giải:  

Chương trình đề xuất                                       

   Program kiemtrahk2;                                                      
   type   mang=array[1..20] of integer;                                     
   var    n,i,x:integer;   T:mang; 
  a.                                          
   procedure nhap(var T:mang; n:integer);                                   
   begin                                                                     
         for i:= 1 to n do                                                    
               begin                                                        
                   write('T[',i,']='); 
                    readln(T[i]); 
                end; 
   end; 

b. 

function    trungbinh(var a:mang; n:integer):real;                      
   var tb:real;    stb:integer;                                            
   begin                                                                    
         stb:=0; 
               for i:= 1 to n do 
                     stb:=stb+T[i]; 
                     tb:=stb/n; 
                      trungbinh:=tb; 
        end; 

c. 

function tongchia(var T:mang;var x:integer; n:integer):real;                
 var schia:real;                                                           
begin                                                                      
      schia:=0; 
         for i:= 1 to n do 
               if T[i] mod x=0 then          schia:=schia+T[i]; 
         tongchia:=schia; 
   end; 
   begin                                                                   
          nhap(T,20);                                                         
          xuat(T,20); writeln;                                              
          write( ‘Trung binh la:’,trungbinh(T,20):6:4); writeln; 
          write( ‘nhap so nguyen x= ’);      readln(x); 
          write( ‘    Tong       cac      so    chia     het    cho’,x,’ 
   la:’,tongchia(T,x,20):6:2);readln 
     end.