Program HOC24;

var a: array[1..1000] of integer;

i,n,tg,j: integer;

begin

write('Nhap so phan tu cua day : '); readln(n);

for i:=1 to n do

begin

write('a[',i,'=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=1 then

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Day sau khi sap xep la: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

readln

end.

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/(i*2);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

Chọn C

Em tham khảo nhé.

Đây là chương trình tìm tổng A:

```
var n, A: real;
  
write('Nhap vao so n: ');
readln(n);
  
A := 0;
  
for var i := 1 to Round(n) do
begin
  A := A + 1/i;
end;
  
writeln('Tong A la: ', A:0:2);
```

Giải thích chương trình:

1. Sử dụng lệnh `readln` để nhập giá trị `n` từ bàn phím.
2. Khởi tạo biến `A` là 0.
3. Sử dụng vòng lặp `for` để tính tổng từ 1 đến `n`.
4. Cộng giá trị của 1/i vào biến `A`.
5. In ra giá trị của `A` với độ chính xác 2 chữ số thập phân bằng lệnh `writeln`.

good chops em

gôod

program bang_nhan;

uses Crt;

var i,n:Integer

 begin

 clrscr;

n:=7;

for i:=1 to 10 do

 WriteLn(n,'x',i:2,'=',n*i:3);

Readln

 end.

Program cuu_chuong_7;

Var;

      i : interger;

      k : interger;

Begin;

       for i := 1 to 10 do:

             k := 7;

             writeln (k, “x”, i, “=”, k * i);

End;