Заполните ячейки трассировочной таблицы, используя данные задания №3 (x, s) ​

var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.

var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.

Слово вводится с клавиатуры латиницей(максимум 19 символов)

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strlen;
using std::strcat;
#include <iomanip>
using std::setw;

int main()
{
   char s[20];

   cout << "Enter the word: ";
   cin >> setw(20) >> s;

   char s2[strlen(s) * 3 + 1];

   for(int i = 0; i < strlen(s); i++)
   {
      s2[i] = '*';
   }
   s2[strlen(s)] = '\0';

   strcat(s2, s);

   for(int i = strlen(s2); i < sizeof(s2); i++)
   {
      s2[i] = '*';
   }
   s2[sizeof(s2)] = '\0';

   cout << s2 << endl;

   return 0;
}