Если в верхнем колонтитуле написать текст, при распечатке будет его видно? ?

Да. Колонтитул для того, чтобы текст или картинка что в нем повторялся на каждой странице.

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

using System;

using System.Linq;

class MainClass

{

   public static void Main(string[] args)

   {

       int k = 0;

       int[] E = new int[7];

       int[] K = new int[7];

       for (int i = 0; i < 7; i++)

           E[i] = Convert.ToInt32(Console.ReadLine());

       for (int i = 0; i < 7; i++)

           K[i] = E[i] * E[i];

       Console.WriteLine("Элементы массива E : ");

       foreach (int M in E)

           Console.WriteLine(M);

       Console.WriteLine("\nНомер минимального элемента массива K : " + Array.IndexOf(K, K.Min()));

       foreach (int M in E)

           if (M % 2 == 1)

               k++;

       Console.WriteLine("\nКоличество нечетных эелементов в массиве E : " + k);

   }

}

Решение с массивом
var a: array[1..1000] of longint;
i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1;
if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.

Решение без массива
var x, i, n, k1, k2: longint;
begin
k1 := 0;
k2 := 0;
read(n);
for i := 1 to n do
begin
read(x);
if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1;
if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1;
end;
writeln(k1, ' ', k2);
end.