операции с массивом Опции

[timan]

В одномерном массиве, состоящем из n вещественных элементов вычислить:
1. Кол-во элементов меньших С.
2. Сумму целых частей элементов массива, расположенных после последнего отрицательного элемента.
Преобразовать массив таким образом, чтобы сначала располагались все элементы, отличающие от максимального не более чем на 20 %, а потом– все остальные.

[volvo]

const
  n = 5;
  a: array[1 .. n] of real =
    (2.5, 2.0, -2.4, -2.4, 15.45);
var
  i, s: integer;

begin
  i := succ(n);
  while (i > 0) and (a[pred(i)] > 0) do dec(i);

  s := 0;
  while i <= n do begin
    s := s + trunc(a[i]); { Trunc будет лучше чем Int }
    inc(i)
  end;
  writeln('s = ', s)

end.

Вообще-то вот так...