Очередь

[Spanchik]

Сообщение от Poma][a

Совершенно верно

Да, устроит и во фри

[forged]

Да мне все равно. Я просто попробовал решить задачу. А разве коды будут отличатся PascalABC.NET от FP?

[Poma][a]

Да мне все равно.

Угу.. На предыдущей странице дошло, что Вы <> ТС

А разве коды будут отличатся PascalABC.NET от FP?

В FPC можно использовать TQueue.. Про наличие сего чуда в NET'е не осведомлен..

[forged]

TQueue о таком не слышал даже.
Это как-то с dalphi связано?

[Poma][a]

тыц

[Poma][a]

uses Contnrs, Math;

var
	OneDigit, TwoDigit, Mult : TQueue;
	p, q, m : PInteger;
	n, t, i : Integer;

begin
	OneDigit := TQueue.Create;
	TwoDigit := TQueue.Create;

	ReadLn(n);
	for i := 1 to n do begin
		Read(t);
		New(p); p^ := t;

		if t < 10 then 
			OneDigit.Push(p)
		else 
			TwoDigit.Push(p)
	end;
	
	Mult := TQueue.Create;
	for i := 1 to Min(OneDigit.Count, TwoDigit.Count) do begin
		p := OneDigit.Pop; q := TwoDigit.Pop;
		New(m); m^ := p^ * q^;
		Mult.Push(m);
		FreeMem(p); FreeMem(q)
	end;
	
	OneDigit.Free;
	TwoDigit.Free;
	
	for i := 1 to Mult.Count do begin
		p := Mult.Pop;
		Write(p^, ' '); 
		FreeMem(p)
	end;

	Mult.Free
end.