Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>
Если просто надо убрать легенду, просто щелкните мышкой на ней и там должно появиться сообщение типа ОЧИСТИТЬ ЛЕГЕНДУ
Вводим значение а=16.
Далее: "если а- четное, то делим его пополам". У нас 16 - четное, поэтому делим пополам и получаем 8. Это и есть ответ.
<u><em>Ответ:</em></u> 8
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(ReadInteger('n='),i->1/(2*i),1).Println.Sum.Println
end.
<u>Пример</u>
n= 6
0.5 0.25 0.166666666666667 0.125 0.1 0.0833333333333333
1.225