С ++
В одномерном массиве , состоящем из 12 целых элементов :
а) Найти максимальный элемент , и его номер среди элементов массива с нечетными номерами

Полагаю, Pascal ABC.

//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.

//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n); 
for i:=1 to n do
begin
read(a[i]); 
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив A[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(x->x.Sum);
  b.Println;
end.

Пример
Количество строк в массиве: 7
Количество столбцов в массиве: 10
*** Исходный массив A[7,10] ***
  38  21  17  35  46 -38 -43  20 -38  47
   5   5   1  20  22 -12 -30 -21 -41   3
 -42   3  21 -25  18 -18  -7  21 -44  25
  -1  50  21  -1  23  49   9 -17 -32  47
  36 -44  46   7  48  -9 -35 -29 -48  35
  19  -6 -38  12 -17 -16  50  -9 -34  13
  20 -13  13 -12  -2   5  35 -48  47  23

75 16 81 36 138 -39 -21 -83 -190 193