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

[timan]

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

[klem4]

1. Кол-во элементов меньших С.

Код

uses crt;
const n=5;
var x:array[1..n] of extended;
   i,k:integer;
   c:extended;

Begin
  clrscr;
  write('c=');
  readln(c);
  writeln;
  k:=0;
  for i:=1 to n do
   begin
      readln(x[i]);
      if x[i]<c then
       inc(k);
    end;
   writeln;
   writeln('k=',k);
   readln;
   end.