const
n = 10;
var
i, k, s: integer;
a10: array[1..n] of integer;
begin
for i := 1 to n do
read(a10[i]);
s := 0;
k := 0;
for i := 1 to n do
if a10[i] < 5 then
begin
s := s + a10[i];
k := k + 1;
end;
write(s, ' ', k);
end.
(А>В) и (В>С) это условие упорядочивания по убыванию, когда каждый элемент меньше предыдущего
Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение: