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

[timan]

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

[volvo]

murphy

Не тестировал и не компелировал...

Вот и напрасно - запутался в значениях... Вот твоя программа, немного подправленная:

Код

const
 n=5;
 B: array[1..n] of real =
    (2.5, -2.0, 2.4, 2.4, -15.45);
var
 A: array[1..n] of real;
 max: real;
 i, k: byte;
 bLoop: boolean;

function findmax(X:array of real): real;
 var i,n: byte; m: real;
 begin
   m:=X[0];
   for i:=1 to Pred(high(X)) do
     if X[i]>m then m:=X[i];
   findmax:=m;
 end;

function otl(m, r: real): boolean;
 begin
   otl := ((abs(m-r)/m)*100 <= 20)
 end;

begin
 max:=findmax(B);
 writeln(max:5:2);
 k:=0;

 for bLoop := true downto false do
   for i:=1 to n do
     if otl(max ,B[i]) = bLoop then
       begin
         inc(k); A[k]:=B[i]
       end;

 for i:=1 to n do
   write(A[i]:7:2);
 readln
end.