Здравствуйте, roman22.

Решение - в приложении.
Единственный нюанс: при нахождении элементов,

отличающихся от максимального .не более чем на 20%

, я прибавлял 20% процентов к элементам массива, а не вычитал 20% из максимального. Если я неправильно понял это условие, то его не трудно подправить.

Приложение:
uses crt;

const N=13; {Если больше, то не влезут в экран в одну строку}

var a: array[1..n] of real;
i,j,max: byte;
sum,c :real;

begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:=(random-0.5)*100;{Вводим элементы массива "случайным образом"}
write(a[i]:6:1) {И выводим на печать}
end;
{1}
writeln;
write('Введите C: ');
readln(c);
j:=0;
for i:=1 to N do
if a[i]<c then {Если очередной элемент массива больше С,}
inc(j); {увеличиваем j на единицу}
writeln(j,' элементов больше ', c:3:1);
{2}
sum:=0.0;
for i:=1 to N do
if a[i]<0 then {если встретился отрицательный элемент, то мы не дошли до неотрицательного "хвоста" массива}
sum:=0.0 {тогда обнуляем сумму}
else
sum:=sum+a[i];
writeln('Summa=',sum:3:1);
{3}
max:=1;
for i:=2 to N do
if a[i]>a[max] then
max:=i;
writeln('max=',a[max]:3:1,' a[i] d.b. >',a[max]/1.2:3:1);
for i:=1 to N-1 do
if a[i]*1.2<a[max] then
for j:=i+1 to N do
if a[j]*1.2>=a[max] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
break
end;
for i:=1 to N do
write(a[i]:6:1);
readkey
end.