наверно подразумевается "противополных знаков". вначале немного подумайте над алгоритмом.
заведите место хранения вводимых чисел (в примитивном случае - массив из 4х эл-тов, в общем - список arraylist,
подсчитывайте количество введённых чисел (или сразу считайте скольк=4).
помещайте модуль ( math.abs() ) в хранилище, если такого там ещё нет (в map не надо проверять, это множество). на выходе сравните количество введённых и заполненную длину хранилища: разница даст количество "противоположных чисел".
ну, а вы же учитесь, а не я.
begin
var Q := new Queue<integer>;
SeqRandom(14, 0, 80).ForEach(t -> begin Q.Enqueue(t) end); // заполнили
Q.Println;
var m := Trunc(Q.Where(t -> t mod 5 = 0).DefaultIfEmpty.Average); // среднее
Q.Enqueue(m);
Q.Println;
// удаление
var L:=Q.ToList; // переписать в список
L.RemoveAt(4); // удалить 5-й элемент
Q.Clear; // очистить очередь
foreach var t in L do // поэлементное добавление
Q.Enqueue(t);
Q.Println
end.
![Заполнить очередь 14 целыми числами из интервала [0; 80]. найти целую часть среднего арифметического](/tpl/images/0931/9679/912f1.jpg)
