Перевести число 0907 в 10,2,4,8,16 степень

Поскольку в условии не сказано, каким образом поступать с входными данными (должны ли они оставаться неизменными после завершения работы программы или нет), введем понятие "ресурс клавиши" и будем хранить ресурс для каждой из клавиш в массиве c.

Ресурс - текущее состояние клавиши (сколько еще нажатий она может выдержать. В начале ресурс равен кол-ву нажатий, выдерживаемых клавишей). Каждый раз, когда мы получаем очередное число из четвертой строки (новую нажатую клавишу), мы уменьшаем ее ресурс.

В итоге все клавиши, у которых ресурс оказался меньше нуля, будут неработо Исходный код и результат работы представлен ниже:

#include <iostream>

int main()

{

int n; // Количество клавиш на клавиатуре

int c[100]; // Количество нажатий, выдерживаемых i-ой клавишей

int k; // Общее количество нажатий клавиш

int i; // Счетчик

int key; // Нажатая клавиша

 // Первая строка  

std::cin >> n;

 // Вторая строка

for (i = 0; i < n; i++)

 std::cin >> c[i];

// Третья строка  

std::cin >> k;

// Четвертая строка

for (i = 0; i < k; i++)

{

 std::cin >> key;  

 c[key - 1]--; // Уменьшаем ресурс клавиши

}

for (i = 0; i < n; i++)

{

 // Если ресурс израсходован, клавиша сломана

 if (c[i] < 0) std::cout << "yes" << std::endl;

 else std::cout << "no" << std::endl;

}

return 0;

}

Program asd;
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
  Writeln('Массив А: ');
 For i:=1 to n do
  begin
   s:=0;
   for j:=1 to m do
    begin
    A[i,j]:=Random(10);
    Write(A[i,j]:2);
    s:=s+A[i,j];
      sr:=s/i;
    end;
    Writeln;
  end;
  Writeln;
 k:=0;
  For i:=1 to n do
   begin
   s1:=0;
    for j:=1 to m do
      
      If A[i,j]>sr then
      begin
      inc(k);
      s1:=s1+A[i,j];
   end;
     
     Writeln('Сумма строки №',i,' : ',s1);
   end;
   Writeln('Сред. ариф. массива: ',sr:2:2);
    Writeln('Количество: ',k);
END.