Program HOC24;

var  d,N,i: integer;

t: longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then d:=d+1;

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.

B sửa lại đề nhé.

for i:=1 to 6 do

begin j:=j+1; k:=k+j; end;

____________________

j=2; k=3;

Vòng lặp thứ nhất: i=1, j=j+1=2+1=3; k=k+j=3+3=6

Vòng lặp thứ hai: i=2; j=j+1=3+1=4; k:=k+j=6+4=10

Vòng lặp thứ ba: i=3; j=j+1=4+1=5; k=k+j=10+5=15

Vòng lặp thứ 4: i=4; j=j+1=5+1=6; k=k+j=15+6=21

Vòng lặp thứ 5: i=5; j=j+1=6+1=7; k=k+j=21+7=28

Vòng lặp thứ 6: i=6; j=j+1=7+1=8; k=k+j=28+8=36

Vậy j=8; k=36

giúp mình với, mình cần gấp

Program OLM;

var x,n: integer;

kq: longint;

begin

write('Nhap x: '); readln(x);

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

kq:=1;

for i:=1 to n do kq:=kq*x;

write(x,'^',n,'=',kq);

readln

end.

Bài này phải làm trên Pascal mới đc