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.