# data[].attributes.attachment_link.title
CAC BAI TAP PASCAL HAY.doc - Táº¡i 123doc.vn

# data[].attributes.body
ĐỀ Ngày 27/11

# data[].attributes.body
Phần tử XH nhiều nhất

# data[].attributes.attachment_link.title
Tìm phần tử xuất hiện nhiều nhất trong mảng

# data[].attributes.body
Bài 3. Ptu x.hien nhiều nhất

# data[].attributes.body
var f,g:text;
k:int64;
n,i,d,j:longint;
a:array [1..1000000] of int64;
begin
assign(f,'khieuvu.inp');
reset(f);
assign(g,'khieuvu.out');
rewrite(g);
readln(f,n,k);
for i:=1 to n do read(f,a[i]);
d:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(a[i]-a[j])=k then d:=d+1;
write(g,d);
close(f); close(g);
end.

# data[].attributes.body
var x,y:string;
f,g:text;
a,b:int64;
begin
assign(f,'nhanhtri.inp');
reset(f);
assign(g,'nhanhtri.out');
rewrite(g);
readln(f,a,b);
str(a,x); str(b,y);
while x[length(x)]='0' do delete(x,length(x),1);
while y[length(y)]='0' do delete(y,length(y),1);
if length(x)>length(y) then writeln(g,a);
if length(x)<length(y) then writeln(g,b);
if length(x)=length(y) then begin
while x[length(x)]=y[length(y)] do begin
delete(x,length(x),1);  delete(y,length(y),1); end;
if x[length(x)]>y[length(y)] then writeln(g,a) else writeln(g,b); end;
close(f); close(g);
end.