Viết các chương trình tương ứng với các yêu cầu dưới đây Nhập từ bàn phím một mảng số nguyên dương gồm N phần tử (N<=200): A 1, A 2 ,..., A n . In ra màn hình kết quả đã xử lý của các yêu cầu sau Bài 1: Tính tổng các số chẵn có trong dãy. Bài 2: Tính tổng các số chia hết cho K, với K là số nguyên dương được nhập từ bàn phím. Bài 3: Đếm số lần xuất hiện của giá trị X có trong mảng, với X là số nguyên dương được nhập từ bàn phím. Bài 4: Tìm kiếm vị trí xuất hiện của X có trong mảng. Thay thế những giá trị A i là X thành Y. Biết rằng X, Y là số nguyên dương được nhập từ bàn phím.

Vote cho mình nha ^^

uses crt;
var
    n,i,k,y,s,t,x,d:integer;
    a:array[1..1000] of integer;
begin
 clrscr;
 write('Nhap n: '); readln(n);
 for i:=1 to n do
  begin
   write('Nhap a[',i,']: ');
   readln(a[i]);
  end;
  for i:=1 to n do if (a[i] mod 2 = 0) then s:=s+a[i];
  writeln('Tong so chan: ',s);
  write('Nhap k: '); readln(k);
  for i:=1 to n do if (a[i] mod k = 0) then t:=t+a[i];
  writeln('Tong cac so chia het cho ',k,' : ',t);
  write('Nhap so X: '); readln(x);
  for i:=1 to n do if (a[i]=x) then d:=d+1;
  writeln(x,' xuat hien ',d,' lan');
  write('Nhap Y: '); readln(y);
  for i:=1 to n do if(a[i]=x) then a[i]:=y;
  writeln('Mang sau khi thay: ');
  for i:=1 to n do write(a[i],' ');

 readln;
end.