написанные программы / задание №2 — 1 / 2

Program Lab_2;

const n = 10;

{/*
* ЏҐаҐ¬Ґ­­лҐ ўбпЄЁҐ ®ЇаҐ¤Ґ«пҐ¬
*/}

var arr : array[0..n-1] of real;
var count : word;
var max_e : real;
var max_s : real;
var sp_els : byte;


{/*
* Џг§ламЄ®ў п б®авЁа®ўЄ  ЎҐ§ «Ёи­Ёе Їа®ўҐа®Є.
*/}

procedure sort;
var i, j : byte;
var p : real;
begin
for i := 0 to n-1 do
for j := 0 to n-2 do
if (abs(arr[j]) < abs(arr[j+1])) then
begin
p := arr[j];
arr[j] := arr[j+1];
arr[j+1] := p;
end;
end;


{/*
* main()
*/}

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

max_s := 0.0;
max_e := arr[0];
sp_els := 0;
for count := 0 to n-1 do
begin
if (arr[count] >= 0) and (arr[count] <= 9) then
inc(sp_els);

if (max_e <= arr[count]) then
begin
max_s := 0.0;
max_e := arr[count];
end
else
max_s := max_s + arr[count];
end;

writeln('1. ', sp_els);
writeln('2. ', max_s:4:2);

sort;

end.