//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
#python v3.6.2
# dec - десятичное число, n - разрядность числа, по умолчанию - 32 (как у типа integer)
def dec_to_bin(dec, n=32):
if dec > 0:
b = ''
while dec > 0:
i = str(dec % 2)
b = i + b
dec = int(dec / 2)
return b
if dec < 0:
dec = -dec
b = ''
while dec > 0:
i = str(dec % 2)
b = i + b
dec = int(dec / 2)
# прямой код
b = '0'*(n-len(b))+b
# обратный код
b = b.replace('1', '2').replace('0', '1').replace('2', '0')
# дополнительный код
b = b[0:b.rfind('0')]+'1'+'0'*(len(b[b.rfind('0'):len(b)])-1)
return b
if dec == 0:
return 0
Var n:Integer;
Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
<span>end.</span>
Во вложении
--------------------------------