Bài 17: Cho một dãy số nguyên gồm n phần tử.
i- Nhập dãy số (n nhập từ bàn phím, 1<=n<=100).
j- In dãy vừa nhập ra màn hình.
k- Tính tổng các phẩn tử dương lẻ.
l- Sắp xếp dãy sao cho các số âm đứng ở đầu dãy, các só dương
ở cuối dãy đồng thời các số âm giảm dần, các số dương tăng dần.
ví dụ: dãy ban đầu {1, -3, -6, 4, 9, 12, -4, 7, 3, 23, -2} thì dãy
sau khi sắp phải là dãy {-2, -3, -4, -6, 1, 3, 4, 7, 9, 12}
program p2b17;
Uses crt;
var a:array[1..30] of integer ;
i,tg,j,n :integer;
s:Integer;
begin
Clrscr;
write('nhap n=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
write('Mang vua nhap:');
for i:=1 to n do
write(a[i]:3);
writeln;
s:=0;
for i:=1 to n do
if ((a[i] > 0) and (a[i] mod 2<>0)) then
s:=s+a[i];
write('Tong cac phan tu duong le la:',s);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ((a[i]<0) and (a[j]<0) and (a[i]
- Xem thêm -