Bài tâp về mảng 1 chiều ( lớp 11)

[joasny]

hỏi bài hay là đưa ra để ng` ta làm? Hỏi bài thì pm kid.angel1412 tui chỉ cho! Mấy bài này đơn giản mà!

[nhock_quậy]

hỏi bài hay là đưa ra để ng` ta làm? Hỏi bài thì pm kid.angel1412 tui chỉ cho! Mấy bài này đơn giản mà!

he he
đồng chí biết thì post lên luôn cho mọi người học hỏi. đơn giản với người thấy đơn giản nhưng phức tạp với người thấy phức tạp mà

[joasny]

BT 1 câu b

program tinhtongsochan;
var a:array [0..100] of integer;                                              
    S,n,i,dem: integer;                                                       
begin                                                                         
     writeln('Nhap so luong phan tu:');                                       
     readln(n);                                                               
     S:=0;                                                                    
     dem:=0;                                                                  
     for i:=1 to n do                                                         
     begin                                                                    
          writeln('Nhap so thu ',i,':');                                      
          readln(a[i]);                                                       
     end;                                                                     
     for i:=1 to n do                                                         
     if ( a[i] mod 2 = 0) then                                                
     begin                                                                    
      S:=S+a[i];                                                              
      dem:= dem + 1;                                                          
     end;                                                                     
     writeln('Tong cac so chan la:',S);                                       
     writeln('So cac so chan la:',dem);                                       
     readln
end.

[joasny]

BT 1 câu c

program tinhtongsochia3;
var a:array [0..100] of integer;                                              
    S,n,i,dem: integer;                                                       
begin                                                                         
     writeln('Nhap so luong phan tu:');                                       
     readln(n);                                                               
     S:=0;                                                                    
     dem:=0;                                                                  
     for i:=1 to n do                                                         
     begin                                                                    
          writeln('Nhap so thu ',i,':');                                      
          readln(a[i]);                                                       
     end;                                                                     
     for i:=1 to n do                                                         
     if ( a[i] mod 3 = 0) then                                                
     begin                                                                    
      S:=S+a[i];                                                              
      dem:= dem + 1;                                                          
     end;                                                                     
     writeln('Tong cac so chia het cho 3 la:',S);                                       
     writeln('So cac so chia het cho 3 la:',dem);                                       
     readln
end.

mấy bài kia siêng thì làm cho đơn giản wá tự nhiên bỏ thời ngồi làm nãn ghê!