//1)сделать очереди пустыми
for (int i=0; i<l; i++) clrqu(w[i]);
int x=1, k=1;
//2)записать x в файл
fout<<setw(6)<<x;
//3)основной цикл
while (k<N)
{ //3.1)записать элемент x*b[i] в очередь w[i]
for (int i=0; i<l; i++) insqu(w[i], x*b[i]);
//3.2)найти и поместить в x минимальный
// элемент из первых в w[i]
x=topqu(w[0]);
for (int i=1;i<l;i++)
{int t=topqu(w[i]);
if (t<x)x=t;
}
//3.3)добавить x в fout
fout<<setw(6)<<x; k++;
if (k%10==0) fout<<endl;
//3.4 убрать из очередей элементы == x
for (int i=0;i<l;i++)
if (x==topqu(w[i])) remqu(w[i]);
}
fout<<endl;