Const n=10;
var a:array[1..n] of integer;
k,i,j:integer;
begin
for i:=1 to n do read(a[i]);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then k:=k+1;
writeln('k = ',k);
end.
Пример:
12 56 38 12 85 12 60 45 38 15
<span>k = 4</span>
Баськин и Васькин назвали правильно цвет (красный, не синий), а Аськин - марку автомобиля (Тойота).
Ответ - красная тойота
===== PascalABC.NET =====
begin
var n := ReadInteger;
var L := ReadSeqInteger(n).Distinct.ToList;
L.AsEnumerable.Reverse.Print
end.
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.