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

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.

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à!

Trích:

---

Nguyên văn bởi 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à!

---

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à:MatCuoi:

BT 1 câu a

Code:

---

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.

---

BT 1 câu b

Code:

---

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.

---

BT 1 câu c

Code:

---

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

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

Trích:

---

Nguyên văn bởi 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:)

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

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