Автор Лера Прохорова задал вопрос в разделе Другие языки и технологии
Сортировка простыми вставками на паскале. Что я неправильно сделала? Проверьте программку. и получил лучший ответ
Ответ от Nnn7[гуру]
var m:array[1..100] of integer;
j,i,tmp,n:integer;
begin
randomize;
readln(n);
for j := 1 to n do
begin
m[j]:=random(5);
writeln(m[j]) end;
for j:=2 to N do
begin
i := j;
while M[ i ] < M[i-1] do
begin
tmp:=M[ i ];
m[ i ]:=M[i-1];
m[i-1]:=tmp;
i := i-1
end
end;
writeln;writeln;
for j := 1 to n do
writeln(m[j]);
readln
end.
ссылка заблокирована .ru/pascal/thread195485.html Здесь еще есть код, выглядит лучше. Сверяйся ищи ошибки.
Ответ от Антон Харченко[гуру]
Это что такое? (x<y[j])>0)
Это что такое? (x<y[j])>0)
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Сортировка простыми вставками на паскале. Что я неправильно сделала? Проверьте программку.