написанные программы / задание №4 — 3 / ROMAN

Program lab_number_2;

{/*
* ‚ аЁ ­в 2 ‡ ¤ ­ЁҐ 4
*/}


const autor = 'Andrew (all@inbox.ru)';

{/*
* Џа®Ја ¬¬  пў«пҐвбп даЁи­®© в Є зв® ... ЇаҐЇ®¤ Ўг¤Ґв а ¤ :)
*/}


{/*
* Ќ®ўл© ЇҐаҐ¬Ґ­­лҐ, ЁбЇ®«м§гҐ¬лҐ ў Їа®Ја ¬¬Ґ
*/}
const max_size = 11;
var arr : array[0..max_size-1] of real;
c : real;
count : word;
minus : word;
plus : word;
max : real;
count2: word;

{/*
* Main()
*/}
begin
max := arr[0];
minus := 0;
plus := 0;
count2:= 0;

for count := 0 to max_size-1 do
readln(arr[count]);

readln(c);
for count := 0 to max_size-1 do
begin
if (arr[count] < c) then inc(minus);

if (arr[count] < 0) then plus := 0;
inc(plus, round(arr[count]));

if (max < arr[count]) then max := arr[count];
end;

max := max * 0.8;

for count := max_size-1 downto count2 do
begin
if count <= count2 then break;
while (arr[count] >= max) do
begin
c := arr[count];
arr[count] := arr[count2];
arr[count2] := c;
inc(count2);
end;
end;

end.