Câu hỏi:

28/06/2023 141

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) 

Quảng cáo

Trả lời:

verified
Giải bởi Vietjack

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. 

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Lời giải

Lời giải:

Đáp án đúng: D

Xem, sửa, bổ sung và xóa dữ liệu

Câu 2

Lời giải

Lời giải:

Đáp án D.

Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.

Câu 3

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 4

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 5

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 6

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP

Câu 7

Lời giải

Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.

Nâng cấp VIP