Дистанционная подготовка: Есть программа бытрее этой
Есть программа бытрее этой
от Алмаз Ханнанов - Вторник 26 Март 2019, 11:49
112315. Сколько разных?
  var arr:array of int64;
var k,n,S,last:int64;
begin
read(k);
arr:= new int64[k];
for n:=0 to k-1 do begin
  read(arr[n]);
end;
arr.Sort;
writeln(arr.JoinIntoString(' '));
last:=arr[0];
S:=1;
for n:=0 to k-1 do begin
 
  if last <> arr[n] then S:=S+1;
  last:=arr[n]
end;
writeln(S);
end.