Св паскале в одномерном массиве, состоящем из n элементов, вычислить: 1) количество элементов массива, больших с 2) произведение элементов массива, расположенных после максимального по модулю элемента 3) преобразовать массив таким образом, чтобы сначала размещались все отрицательные элементе, а потом- все положительные (0 считать положительным)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 10;

var
  a: array[1..n] of integer;
  i, j, c, nc, max, imax: integer;
  p:BigInteger;

begin
  // Заполним массив сл. числами
  max := -MaxInt;
  for i := 1 to n do
  begin
    a[i] := random(-100, 100);write(a[i]:4);
    if abs(a[i]) > max then begin
      max := a[i];imax := i;
    end;
  end;
  writeln;
  //1. Количество элементов массива, больших С.
  writeln('Введите число "с"');readln(c);
  for i := 1 to n do if a[i] > c then nc := nc + 1;
  writeln('Элементов больше чем ', c, ' : ', nc);
 
  //2. произведение элементов массива,
  //расположенных после мак симального
  //по модулю элемента 
  p := 1;
  for i := imax + 1 to n do p := p * a[i];
  writeln('Максимальный по модулю элемент находится на ', imax, ' месте');
  writeln('Произведение элементов массива,расположенных после максимального по модулю элемента ', p);
 
  //3. Преобразовать массив таким образом, чтобы сначала размещались все
  //отрицательные элементы, а потом все положительные
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] > a[j + 1] then begin
        swap(a[j], a[j + 1]);  
      end;
  writeln('Преобразованный массив :');
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
  -6  91  52  62 -28 -64  86  86 -91 -61
Введите число "с"
15
Элементов больше чем 15 : 5
Максимальный по модулю элемент находится на 2 месте
Произведение элементов массива,расположенных после максимального по модулю элемента -1246076928
Преобразованный массив :
 -91 -64 -61 -28  -6  52  62  86  86  91

Понятия чаще всего определяются через ближайший род и видовое отличие: указывается группа родственных понятий, к которому относится определяемое понятие, и его отличие от других понятий этой группы.

Примеры:
1. Сила тока — скалярная физическая величина, равная отношению количества заряда, протекшего через поперечное сечение проводника за некоторое время, к продолжительности этого промежутка времени. (Ближайший род — скалярные физические величины, отличие — равна Δq/Δt, все остальные скалярные физические величины этому не равны).
2. Паспорт гражданина Российской Федерации — основной документ, удостоверяющий личность гражданина Российской Федерации на территории Российской Федерации. (Остальные основные документы не удостовряют)

Определение через род и видовое отличие состоит из двух понятий: определяемого и определяющего, а сама операция включает в , себя два приема: 1) подведение определяемого понятия под более широкое по объему родовое понятие (род) и 2) указание видового отличия, т.е. признака, отличающего определяемый предмет (вид этого рода) от других видов, входящих в данный род. Например:«Чеком признается ценная бумага, содержащая ничем не обусловленное письменное распоряжение чекодателя банку уплатить держателю чека указанную в нем сумму». Здесь определяемое понятие «чек» является видом родового понятия «ценная бумага», которое содержит некоторые признаки понятия «чек»; остальная часть определения – видовое отличие – отличает чек от облигации, векселя, акции и других документов, выпускаемых в соответствии с законодательством в качестве ценных бумаг'.Определение через род и видовое отличие выражается символически: А=Вс, где А – определяемое понятие, Be – определяющее понятие (В – род, с – видовое отличие). Или: Dfd = Dfn, где = – знак эквивалентности.