do read(a[i]);
for i:=2 to n do
for
j:=n downto i doif a[j-1]>a[j] then
begin
x:=a[j-1];
A[j-1]:=a[j];
A[j]:=x;
End;
writeln('Результат:');
For i:=1 to n do write (a[i]);
End.
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть