Форумы-->Форум для внеигровых тем-->
1|2|3|4
| Автор | Паскаль |
|---|
для Alexandr93:
Чорд, мы с тобой одни книжки читали?) | program z4;
uses Crt;
var
N :integer;
i,j :integer;
a :array[1..10000] of integer;
ch :array[1..10000] of boolean;
eat :integer;
begin
ClrScr;
Write('N = ');
ReadLn(N);
for i:=1 to N do
begin
Read(a[i]);
ch[i]:=true;
end;
eat:=1;
i:=N;
while i<>1 do
begin
if ch[eat]=true
then
begin
ch[eat]:=false;
Write(a[eat],' ');
end;
j:=2;
while j<>0 do
begin
if eat=N
then
eat:=1
else
inc(eat);
if ch[eat]=true
then
dec(j);
end;
dec(i);
end;
end.
Только здесь я делал без предложенных структур данных и по-мойму не совсем оптимально. | | Спасибо. |
1|2|3|4К списку тем
|
