For i := 1 To n do
For j := 1 To n - i do
If a[j] > a[j + 1] Then
begin
y := a[j];
a[j] := a[j + 1];
a[j + 1] := y;
end;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть