Можно быстро сообразить, какой будет ответ, при кругов Эйлера.
Всего есть 2^6 = 64 возможных комбинаций входных параметров и, соответственно, в таблице 64 строки. Изобразим области истинности выражений A и B. Область истинности выражения A + -B – это объединение области истинности A и области ложности выражения B; область истинности изображена на рисунке зелёным цветом.
Чтобы в закрашенную область попало как можно больше элементов, в незакрашенной области элементов должно быть как можно меньше. В данном случае ничего не мешает тому, чтобы в незакрашенной области вообще не было элементов, при этом все 5 элементов в области истинности B должны одновременно быть и в области истинности A. При этом в область истинности выражения A + -B входят все 64 элемента, максимально возможное число единиц равно 64.
ответ: type my_array = array[1..20] of integer;
procedure input_array(var c: my_array; n: integer);
begin
for var i:= 1 to n do
read(c[i]);
end;
procedure count_array(var c: my_array; n: integer);
begin
var d: integer;
var x: real;
for var i:= 1 to n do
begin
d:= d + c[i];
x:= d/n;
end;
writeln(x);
end;
begin
var a: my_array;
var size: integer;
read(size);
input_array(a, size);
count_array(a, size);
end.