Https://b6.csdnevnik.ru/edufile/c8af8d2e49ef40d5b57719d2c8db66a9.jpg

Const  n=5;  m=6;
var  a: array[1..n,1..m]of integer;
 i,j:integer;
begin
       for i:=1 to n do 
         begin   writeln; 
           for j:=1 to m do   
             begin   
                a[i,j]:=random(14)-3;   
                write(a[i,j]:4);   
             end;  
        end;
writeln('Новый массив:');
    for i:=1 to n do 
        begin   writeln;
          for j:=1 to m do   
            begin   
              if (a[i,j]<3)and(a[i,j]<>0) then   
               if a[i,j]<0 then       
                 a[i,j]:=-round(exp(ln(-a[i,j])*3))   
               else       
                 a[i,j]:=round(exp(ln(a[i,j])*3));   
              write(a[i,j]:4);   
           end;  
       end;
end.

Const
  n = 30;

var
  a: array[1..n] of integer;
  i, k, e: integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(20) - 10;
    write(a[i]:4)
  end;
  writeln;
  k := 0;
  write('Индексы нулевых элементов: ');
  for i := 1 to n do
    if a[i] = 0 then
    begin
      k := k + 1;
      write(i:3)
    end;
  writeln;
  writeln('Количество нулевых элементов: ', k)
end.

Тестовое решение:

Исходный массив
   8  -8   0   9  -1   0   4  -6  -8   2   4   7   4  -5   4   2  -1   6  -1   5   5   6  -6  -6  -1  -4   0  -7  -8  -3
Индексы нулевых элементов:   3  6 27
Количество нулевых элементов: 3