Заполнить очередь 11 случайными вещественными числами из интервала [-1; 3]. найти сумму положительных элементов очереди. результат поместить в очередь. удалить 1 элемент из очереди. посл выполнения каждой операции выводить содержимое очереди на экран.
Внимание! Если программа не работает, обновите версию!
begin
var q:=new Queue<real>;
foreach var x in SeqRandomReal(11,-1,3) do
q.Enqueue(x);
q.Println; Println;
q.Enqueue(q.Where(t->t>0).Sum); // добавили сумму
q.Println; Println;
q.Dequeue; // удалили первый элемент
q.Println
end.