Câu 2:

program tong_chan;

uses crt;

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

      n,i,t:integer;

begin

      clrscr;

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

      t:=0;

      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 la: ',t);

      readln;

end.

Câu 3:

Để ghi dữ liêu vào tệp thì ta cần dùng các thao tác:

Mở tệp để ghi:

+ Mở tệp: Assign(<tên biến tệp>,<tên tệp>);

+ Mở tệp để ghi: rewrite(<tên biến tệp>);

+ Ghi dữ liệu vào tệp: write(<tên biến tệp>,<dữ liệu>);

+ Đóng tệp: close(<tên biến tệp>);

VD: Muốn ghi "Tai sao" vào trong tệp f có tên "CAUHOI.TXT" là:

Assign(f,'CAUHOI.TXT');  rewrite(f);

write(f,'Tai sao');

close(f);

2.

uses crt;
var i,n,s:longint; a:array[1..1000000]of longint; 
begin
clrscr;
   write('Nhap n: (n<=100) ');readln(n);
   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]);
      end;
   writeln('Tong cac so chan trong mang: ',s);
readln
end.

3.

B1. Mở tệp: assign(f,'input.pas');

B2.Mở tệp để ghi: rewrite(f);

B3. Ghi dữ liệu: writeln(f,'Hello World');

B4. Đóng file: close(f);