Question

Заполнить очередь 14 целыми числами из интервала [0;80]. Найти целую часть среднего арифметического кратных 5 элементов очереди. Результат поместить в очередь. Удалить 5 элемент из очереди. После выполнения каждой операции выводить содержимое очереди на экран.

Answer 1

// PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

// Внимание! Если программа не работает, обновите версию!

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.