BT1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        For i:=1 to n do Write(A[i],' ');
        Readln
End.

BT2:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,sc,s,k: longint;
Begin
        Clrscr;
        Write('Nhap n,k: '); Readln(n,k);
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 2 = 0 then sc:=sc+A[i];
                If A[i] mod k = 0 then s:=s+A[i];
        End;
        Writeln('1. ',sc);
        Writeln('2. ',s);
        Write('3. ');
        For i:=1 to n do
                If A[i] mod 2 <> 0 then Write(A[i],' ');
        Readln
End.

Câu 1:

uses crt;
var a:array[1..10000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' ');
      readln;
end.

Câu 2:

uses crt;
var a:array[1..10000] of longint;
      n,i,k,s,s1:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      write('Nhap so k: '); readln(k);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=0 then inc(s,a[i]);
                  if a[i] mod k=0 then inc(s1,a[i]);
            end;
      writeln('Tong cac so chan: ',s);
      writeln('Tong cac so chia het cho so ',k,': ',s1);
      write('Cac so le: ');
      for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
      readln;
end.