Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby Студентам с лабораторными сюда

   

Опции темы

Поиск в этой теме

Опции просмотра

Предыдущая   Следующая

for i:=2 to n do
begin
t:=a[i]; a[0]:=a[i]; j:=i;
while t<a[j-1] do 
begin
a[j]:=a[j-1]; Dec(j);
end;
a[j]:=t;
end;
writeln;