Очередь

[Spanchik]

Имеется файл с натуральными числами, не большими 100. Создать одну очередь однозначных чисел, а вторую очередь двузначных чисел. Перемножить соответственные элементы двух очередей и организовать третью очередь. Результат выведите в текстовый файл.

[ZX Spectrum-128]

соответственные элементы

Как это понять? Первый с первым и далее? Четный с четным? Положительный с положительным?

[Spanchik]

Сообщение от ZX Spectrum-128

Как это понять? Первый с первым и далее? Четный с четным? Положительный с положительным?

первый с первым и далее

[ZX Spectrum-128]

http://forum.pascal.net.ru/index.php...94&#entry23594

[forged]

program asd;
uses crt;
var
m1,m2,m3:array[1..99] of integer;
i,b,c,a:integer;
f:text;
BEGIN
assign(f,'D:\in.txt');
reset(f);
a:=0;
while not Eof(f) do
begin
a:=a+1;
read(f,m3[a]);
end;
for i:=1 to a do
begin
if m3[i]<=9 then
begin
b:=b+1;
m1[b]:=m3[i];
end else
begin
c:=c+1;
m2[c]:=m3[i];
end;
end;
for i:=1 to b do
write(m1[i],' ');
writeln;
for i:=1 to c do
write(m2[i],' ');
writeln;
if b<c then
c:=b;
for i:=1 to c do
write(m2[i]*m1[i],' ');
close(f);
END.

Я так понял.

[Poma][a]

на Free Pascal'e пойдет?

[forged]

Вы мне?) Не знаю писал на pascalABC.net

[Poma][a]

Вы мне?)

Ага

Не знаю писал на pascalABC.net

Я в том смысле, что если я напишу код на фряхе, то устроит ли он Вас?

[forged]

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

, то устроит ли он Вас?

ЭЭЭ. Не понял устроит ли меня код на free pascal?)

[Poma][a]

устроит ли меня код на free pascal?)

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

Ах да.. Вы же <> ты.. сори..