Массив содержит n случайных двузначных чисел. определить сколько в данном массиве четных чисел. вывести все его элементы с нечетными номерами.

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52  

Аударғыш (Транслятор; translator) - 1) бір тілде берілген (жазылған) алгоритмді екінші тіл түріне ауыстыратын программа. Жүзеге асыру тәсілдеріне байланысты аударғыш-компилятор және аударғыш-интерпретатор болып екіге бөлінеді; 2) программаны аударатын программа немесе техникалық құрылғы; бастапқы программаны объекті модульге айналдыратын өңдеуіш программа.

Аударғыш - автомобильді бекітіп қажет деңгейге көтеріп, қисайтып бұрып оның төменгі жағын қарап тексеруге мүмкіндік беретін көтергіш жабдық.

Объяснение:

Дұрыс болуы керек по идею

Сначала запишем все числа из промежутка и переведем каждое из них в восьмеричную систему исчисления (чтобы перевести из десятичной в восьмеричную, сначала делим число на восемь, потом получившееся частное и остаток записываются в том же порядке и получаем искомое число), затем убираем те числа где есть 2 или 6. Оставшиеся числа складываем и в ответе получаем 784₈ переводим снова в десятичную (744₈ = 7*8^2+4*8+4*1 = 484₁₀), и теперь уже переводим в двенадцатеричную. Делим 484 на 12, получаем (4)*12+(4) - то что в скобках и будем ответом на задачу.

ответ: 44₁₂