uses crt;
var i,n,k,sk,max,d0:longint; a:array[1..100]of longint;
begin
clrscr;
   write('Nhap n,k: ');readln(n,k);
   writeln('a) Nhap mang ');
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i] mod k=0 then sk:=sk+a[i];
         if i=1 then max:=a[i];
         if max<a[i] then max:=a[i];
         if a[i]=0 then d0:=d0+1;
      end;
   writeln('b) ',sk);
   writeln('c) ',max);
   writeln('d) ',d0);
   write('e) ');
   for i:=1 to n do write(a[i],' ');
readln
end.

program sksk;
uses crt;
var a : array[1..100] of integer;
      i, n, k, s, max, dem  : integer;
begin
clrscr;
s := 0;
dem := 0;
write('nhap so luong phan tu co trong mang :');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 k = 0 then s := s + a[i] ;
if a[i] = 0 then dem := dem + 1;
end;
max := a[1];
for i := 2 to n do if a[i] > max then max := a[i] ;
writeln('tong cac phan tu la boi cua', k ,' la :', s);
writeln('phan tu lon nhat trong mang la :', max);
writeln('so luong cac phan tu co gia tri bang 0 la :', dem);
write('cac phan tu co trong mang la :');
for i := 1 to n do write(a[i]:4);
readln
end.