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

[nhock_quậy]

BT1. Lập chương trình: nhập từ bàn phím dãy số N số nguyên với N thuộc [0;100]. Tính và in ra màn hình:
a,Tổng các số dương có trong dãy
b,Tổng các số chẵn có trong dãy và số các số chẵn trong dãy
c,Tổng các số chia hết cho 3 và số các số chia hết cho 3.


BT2. Lập chương trình: nhập N số thực từ bàn phím và 1 số nguyên dương k với k thuộc [1;N]. chèn 1 số từ bàn phím vào vị trí thứ k của dãy mà không làm đổi trật tự của dãy.


BT3. Nhập N số thực từ bàn phím với N thuộc [1;100] và số nguyên dương k thuộc[2;N]. xóa phần tử thứ k trong dãy mà không làm ảnh hưởng tới trật tự các phần tử của dãy.

[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 a

program tinhtongsoduong;
var a: array [0..100] of integer;
S,i,n : integer;
begin
write('Nhap so luong phan tu:');
read(n);
S:=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]>0 then S:=S+a[i];
writeln('Tong cac so duong la:',S);
readln
end.

[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ê!

[nhock_quậy]

đồng chí này rất tích cực !
canh thiu

[nhock_quậy]

BT2. Lập chương trình: nhập N số thực từ bàn phím và 1 số nguyên dương k với k thuộc [1;N]. chèn 1 số từ bàn phím vào vị trí thứ k của dãy mà không làm đổi trật tự của dãy.

program chen_so;
uses crt;
var a: array[1..100] of real;
i,k,n :byte;
begin
clrscr;
write(‘nhap so phan tu cua mang’);
readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
write(‘chen phan tu thu k =’);
readln(k);
for i:=n+1 downto k do
a[i+1]:=a[i];
write(‘nhap gia tri cho phan tu thu k’);
readln(a[k]);
for i:=1 to n+1 do
write(a[i]:8:2);
readln;
end.


bài 3 tương tự nha các đồng chí, đồng chí nào cần cả bài 3 thì để lại cm

[Gon91]

Hì những bài này khá cơ bản..Nếu là học ở trường ko thì ổn rùi...Nếu bạn nào mà..hướng đến thi cấp tỉnh môn Tin Học thì...tham khảo http://vnoi.info

[Thu Quỳnh]

làm cho e bài 3 zs a nhock_quậy