Дан массив, содержащий 2019 положительных целых чисел, не превышающих 15 000. необходимо найти количество элементов массива, шестнадцатеричная запись которых заканчивается цифрой a, заменить на это количество все элементы, восьмеричная запись которых содержит ровно 2 цифры, и вывести изменённый массив. напишите на одном из языков программирования программу для решения этой . исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

===== PascalABC.NET =====

begin

 var a := ArrRandom(2019, 1, 15000);

// раскомментировать если не надо выводить исходный массив:

 //var k := a.Count(p -> p mod 16 = 10);

 // закомментировать, если не надо выводить исходный массив:

 var k := a.Println.Count(p -> p mod 16 = 10);

 Println('Найдено элементов:', k);

 var n := 0;

 for var i := 0 to a.High do

   if a[i].InRange(8, 63) then

     (a[i], n) := (k, n + 1);

 a.Println;

 Println('Сделано замен:', n)

end.

Объяснение:

Если шестнадцатеричная запись числа заканчивается цифрой A, то остаток от его деления на 16 равен А₁₆ = 10.

Числа, восьмеричная запись которых содержит ровно 2 цифры, лежат в диапазоне [10₈; 77₈] = [8; 63]

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13

1. Определим объем памяти, который занимает одна страница.
Символ текста кодируется 16 битами или 16/8=2 байтами. 1024 символа займут 1024х2=2048 байт. Рисунок состоит из 256х128=32768 точек, а цвет каждой точки кодируется 16 битами или 16/8=2 байтами. Следовательно, рисунок займет 32768х2=65536 байт.
Итого страница займет 2048+65536=67584 байт
2. Определим объем книги.
В книге 512 страниц, поэтому её объем составит 512х67584=34603008 байт.
Используем для ответа более крупные единицы.
34 603 008 /  1 024 = 33 792 Кбайта
33 792 / 1024 = 33 Мбайта
ответ: книга имеет объем 33 МБ