Câu 1:

Program C1;
Uses crt;
Var d,i: longint;
Begin
        Clrscr;
        d:=0;
        For i:=2 to 100 do
                If i mod 2 = 0 then d:=d+i;
        Write('Tong la: ',d);
        Readln
End.

Câu 4:

Program C4;
Uses crt;
Var A: array[1..500] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        d:=0;
        For i:=1 to n do
                If A[i] mod 3 = 0 then inc(d);
        Write('Co ',d,' phan tu chia het cho 3');
        Readln
End.

Câu 5:

Program C5;
Uses crt;
Var n, da,dd: longint;
    tbca,tbcd: extended;
Begin
        Clrscr;
        da:=0; dd:=0;
        tbca:=0; tbcd:=0;

        Repeat
        Write('Nhap mot so bat ki: '); Readln(n);
        If n<0 then
        Begin
                inc(da);
                tbca:=tbca+n;
        End

        Else
        Begin
                inc(dd);
                tbcd:=tbcd+n;
        End;
        Until n=0;

        Write('Trung binh cong cac so am: ',tbca/da:0:2);
        Writeln;
        Write('Trung binh cong cac so duong: ',tbcd/dd:0:2);
        Readln
End.