Ответ:

Program Znanija.com;

Var

   a: array [1..24] of integer;

   n: integer; // Количество элементов в массиве

   i: integer; // Начало массива

   t: integer; // Количество чисел, удовлетворяющих условию

   w: real;    // Сумма всех чисел, удовлетворяющих условию

Begin

   n:= 24; // Редактирование количества элементов в массиве

   t:= 0;

   w:= 0;

   For i:= 1 to N do

       Begin

           a[i]:= 10 + random(77);

           If (a[i] mod 3 = 0) and (a[i] > 29) then

               Begin

                   t:= t+1;

                   w:= w + a[i];

               End;

       End;

   WriteLN('Элементы массива: ');

   For i:= 1 to N do

       Write(a[i], ' ');

   WriteLN;

   If t = 0 then

       Write('Нет чисел кратных 3 ')

   Else  

       Begin

           w:= w / t;

           Writeln('Среднее арифметическое чисел кратных 3 и больше 29 = ', w : 0 : 2)

   End;

End.

Объяснение:

Ну надеюсь и так будет понятно