После выполнения цикла элементы массива будут равны:
4, 8, 12, 16, 20, 10, 8, 6, 4, 2
Наибольшее повторяющееся значение = 8
Program z;
Var s:real
i:integer;
Begin
For i:=0 to 10 do
Begin
s:=cos2/(1+i/10)-2sin1/(1+i/10)+1/(1+i/10);
writeln(s);
end;
End.
если средний 5 то всего их 9