var masiv:array[1..10000] of longint; i:longint;
begin
(n = konetz massiva)
for i:=1 to n do
if masiv[i]=>100 then
begin
masiv[i]:=round(masiv[i]/100);
write(masiv[i],' m | ');
end else
begin
write(masiv[i],' cm | ');
end;
readln;
end;
<span>Алфавит племени Мульти состоит из 32 букв.</span>
<span>2^5=32</span>
<span>
</span>
<span>Ответ 5 бит</span>
Вариант 14
6)
57 (10) = 111001 (2);
-31 (10) = -11111 (2);
-109 (10) = -1101101 (2);
10)
-550.15625 (10) = <span>-1000100110.00101 (2);
</span>616.15625 (10) = <span>1001101000.00101 (2);
</span>
11)
407C360000000000 (16) = 4646648289167409152 (10);
408B594000000000 (16) = 4650909171602948096 (10);
Var a: array [1..1000] of integer; i, n, min, amount: integer;
begin
read(n); {Сначала считываем кол-во элементов}
for i := 1 to n do
read(a[i]);
min := 10000;
amount := 0;
for i :=1 to n do
if (a[i] < min) and (a[i] >= 0) then
min := a[i];
for i := 1 to n do
if a[i] = min then
amount := amount + 1;
writeln('Min: ', min, ', amount: ', amount);
<span>end.</span>