Самый простой и наглядный способ перевода.
Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4
Сначала нужно определить количество бит, которое требуется для сохранения одного номера. Всего 220 уникальных номеров. Количество бит вычисляется по формуле 2^n = k, где n - биты, а k - варианты, которые этими битами можно закодировать.
7 бит недостаточно для хранения 220 номеров, т.к. 2^7 = 128
8 бит достаточно, т.к. 2^8 = 256. То есть на одного спортсмена выделяется 8 бит, или 1 байт.
Всего участвовало 100 спортсменов, 100*1байт = 100байт
const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
<span>end.</span>