Uses crt;

Var k: array[1..10] of integer;

i,j,n: byte;

t: integer;

begin clrscr;

Readln(n);

For i:=1 to n do Begin

readln(k[i]);

end;

For i:=1 to n-1 do For j:=i+1 to n do

if k[j] <=k[i] then begin

t:= k[i];

k[i]:=M[j];

k[j]:=t; end;

For i:=1 to n do Write(k[i],''); readln;

end.

Bài 3: 

a: 

2;5;10;17;26;37

0;3;8;15;24;35

Lời giải chi tiết:

2=1+1          6=2+4          8=5+3          10=8+2

3=1+2          6=3+3          8=4+4          10=7+3

4=3+1          7=6+1          9=8+1          10=6+4

4=2+2          7=5+2          9=7=2          10=5+5

5=4+1          7=4+3         9=6+3           10=10+0

5=3+2          8=7+1         9=5=4           10=0+10

6=5+1          8=6=2         10=9+1         1=0+1

cop hết mạng kìa

D. Không đưa ra kết quả gì

Đáp án A.

Vì vòng lặp for..do có biến đếm chạy từ 1 đến 10 mà mỗi lần lặp có lệnh in ra màn hình biến đếm i kèm dấu cách, nên đáp án là A

Program ct; USES CRT; Var n,i: Integer; A:array[1..10] of integer; Begin Clrscr; Write(' nhap n:'); Readln(n); For i:=1 to n do begin Write('A[',i,']='); Readln(A[i]); end; For i:=1 to n do Write(A[i]); Readln; End.

( Nếu đề chỉ yêu cầu là nhập 10 phần tử thì không cần khai báo n và thay n -> 10 trong câu lệnh for...do. Còn đề yêu cầu in n phần tử thì làm như trên).

Là B bạn nha

Vì dãy số tự nhiên không giới hạn nha bạn

Câu B nha

TL: Câu B