Câu 1:

program Cau_1;

uses crt;

var i,T: byte;

Begin

         clrscr;

         for i:=15 to 25 do T:=T+i;

         write('Tong = ',T);

         readln

End.

Câu 2:

program Cau_2;

uses crt;

var n,i: integer;

Begin

         clrscr;

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

         write('Cac so le trong day tu 1 den ',n,': ');

         for i:=1 to n do

              if i mod 2<>0 then write(i,'  ');

         readln

End.

Câu 3:

program Cau_3;

uses crt;

var A:array [1..500] of integer;

      n,i,T: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if A[i] mod 2=0 then T:=T+A[i];

         end;

         write('Tong cac so chan trong mang = ',T);

         readln

End.

Câu 4:

program Cau_4;

uses crt;

var A:array [1..500] of integer;

      n,i,max,min: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         max:=1; min:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if max<A[i] then max:=A[i];

                  if min>A[i] then min:=A[i];

         end;

         writeln('Phan tu lon nhat: ',max,'  Phan tu nho nhat: ',min);

         readln

End.

Câu 5:

program Cau_5;

uses crt;

var A:array [1..500] of integer;

      n,i,S: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         S:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  S:=S*A[i];

         end;

         write('Tich cac phan tu trong mang = ',S);

         readln

End.

Câu 6:

program Cau_6;

uses crt;

var A:array [1..500] of integer;

      n,i,d: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if A[i] mod 2=0 then d:=d+1;

         end;

         write('Co ',d,' so chia het cho 2 trong mang');

         readln

End.