bạn xuất ra được 15 và 20 đko???

program b1;
uses crt;
var i,n: integer; a:array[1..20] of integer; 
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu la:');
for i:=1 to 20 do
write(a[i], ' ');
readln;
end.
Tham khảo!

hửm là seo á?

For i:=1 to 10 do writeln('A');

- Trường phái hội hoạ lập thể là gì?
- Hội hoạ lập thể được vẽ như thế nào?
- Nó có cần dựa vào vật gì không?
- Nó được sử dụng chủ yếu ở đâu?Ra đời lúc nào?
- Có những tác phẩm tiêu biểu nào?Ai đã sáng lập ra trường phái hội hoạ?
-Phong cách lập thể của nó là gì?
mình nghĩ đc nhiu đây

program b1;
uses crt;
var n,i:integer;
tb:real;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n:');readln(n);
writeln('nhap day so:');
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
tb:=0;
for i:=1 to n do if a[i] mod 2<>0 then tb:=tb+a[i];
tb:=tb/n;
write('trung binh cong cua day so vua nhap la:',tb:2:2);
readln;
end.

Tham Khảo! mình không biết làm sao để nó chỉ lấy 2 số lẻ nx trên 2 sô được không?

là sao bn 

chịu=))

kkk