tìm và đếm số lần xuất hiện của phần tử k trong dãy A và tính tổng các phần tử đó

var a:array[0..100007] of longint;
    i,n,k,d,t:longint;
begin
readln(n,k);
for i := 1 to n do
 begin
   read(a[i]);
   if k = a[i] then
    begin
     inc(d);
     t := t + a[i];
    end;
 end;
writeln('So lan xuat hien cua ',k,' trong day la: ',d);
writeln('Tong cac phan tu = ',k,' la: ',t);
readln;readln;
end.

- Thuật toán :

+ Bước 1 : Nhập số N và dãy A1, A2, ... , AN và số k

+ Bước 2 : i ← 1, d ← 0, S ← 0

+ Bước 3 : Nếu i > N thì đưa ra giá trị d, S rồi kết thúc

+ Bước 4 : 

+ Bước 4.1 : Nếu A[i] = k thì d ← d + 1

+ Bước 4.2 : S ← S + A[i]

+ Bước 4.3 : i ← i + 1 quay lại Bước 3