Câu 1:Viết chương trình tính: S=2+4+6+...+n Câu 2:Viết chương trình tính: S+1+(1/2)+(1/3)+...(1/n) Câu 3:Viết chương trình tính trung bình cộng của n số tự nhiên bất kỳ nhập từ bàn phím. Giúp mik với nhé mn, pls help and tks so much!!!^-^

Bài $1$ Program Hotboy ;

Uses crt;

Var s,i,n : longint;

Begin

Clrscr ;

S:=0;

Write('nhap so n tu ban phim ');

Readln(n);

For i:=1 to n do

If (i mod 2=0) then S:=S+i;

Writeln('tong can tim la',S);

Readln

End.

Bài $2$

Program Hotboy ;

Uses crt;

Var s,i,n : real;

Begin

Clrscr ;

S:=0;

Write('nhap so n tu ban phim ');

Readln(n);

For i:=1 to n do

S:=S+1/i; inc(i);

Writeln('tong can tim la',S);

Readln

End.

Bài $3$

Program Hotboy ;

Uses crt; 

Var a:array[1..100] of integer ;

S,n,i ,tb: real;

Begin

Clrscr ;

Writeln('nhap so n'); 

Readln(n);

For i:=1 to n do

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

$S:=S+A[i];$

Tb:= S/n

Write('tong la',S,'Trung binh la',Tb);

Readln

End.