Хыиуду » 20 дек 2007, 10:40
for i:=1 to n do
If (a mod 2)<>0 then
begin
k:=i;
P:=a[k];
for i:=k downto 2 do
a:=a[i-1];
a[1]:=P;
end;
Два цикла по i один внутри другого точно дадут ошибку. Второй цикл рекомендую сделать, скажем, по j.
for i:=1 to n do Write(V,' ');
begin
if min>V then
min:=V;
end;
Это, конечно, тоже круто, делать write в цикле, а нахождение минимума - где-то в свободном полете. Вы, Абрам Моисеевич, либо крестик снимите, либо трусы наденьте. Т.е. либо уберите write, либо поставьте begin перед ним.
for i:=1 to n do
If (a[i] mod 2)<>0 then
begin
k:=i;
P:=a[k];
for i:=k downto 2 do
a[i]:=a[i-1];
a[1]:=P;
end;
Два цикла по i один внутри другого точно дадут ошибку. Второй цикл рекомендую сделать, скажем, по j.
for i:=1 to n do Write(V[i],' ');
begin
if min>V[i] then
min:=V[i];
end;
Это, конечно, тоже круто, делать write в цикле, а нахождение минимума - где-то в свободном полете. Вы, Абрам Моисеевич, либо крестик снимите, либо трусы наденьте. Т.е. либо уберите write, либо поставьте begin перед ним.