Задать вопрос Регистрация
Помочь другим

  • Упорядочить одномерный числовой массив по возрастанию(Pascal)

Ответы 1

  • uses crt;

    const n=10;

    var a: array[1..n] of integer;          

     i,j,k: byte; c: integer;

    begin  

    randomize;  

    clrscr;  

    writeln('исходный массив: ');  

    for i:=1 to n do   begin    

    a[i]:=random(19)-9;  

     write(a[i]:3);   end;  writeln;

     k:=0;  for i:=1 to n-1 do   f

    or j:=i+1 to n do    if a[i]>a[j] then     begin      

    c:=a[i];      

    a[i]:=a[j];    

     a[j]:=c;      

    inc(k);    

    end;  

    writeln('результат сортировки: ');

     for i:=1 to n do   write(a[i]:3);  

    writeln;  

    writeln('кол-во перестановок = ',k);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years