const

  n = 100;

var

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

  i, count : integer;

begin

  count := 0;

  for i := 1 to n do

    a[i] := round (random (55)) - 30;

  for i := 1 to n do

    if  (a[i] mod 3 = 0) and (i mod 2 = 0) then inc (count);

  writeln  (count);

end.

var

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

  n, i, count:integer;

begin

  write('Введите количество элементов массива '); readln(n);

  writeln('Исходный массив: ');

  count := 0;

  for i := 1 to n do

  begin

    a[i] := random(56) - 30;

    write(a[i], ' ');

    if (i mod 2 = 0) and (a[i] <>0) and (a[i] mod 3 = 0) then

      inc(count);

  end;

  writeln;

  writeln('Количество элементов стоящих на четных местах и кратных 3 равно ', count);

end.