Цитата:
repeat
ik:=true ;
for j:=1 to 9 do
if d[j]>d[j+1] then
begin
buf:=d[j];
d[j]:=d[j+1];
d[J+1]:=buf;
ik:=false;
end; { вообще проверяет только соседей }
|
извиняюсь но вчитайся это цикл сортировки массива а не проверки. проверка идет дальше а строку врайтлн поставил оно всеравно мне левые числа выводит((((жду еще каких нибуть предложений но и на этом спс