• написать программу сортировки массива по возрастанию из 10 случайных элементов. ПАСКАЛЬ

Ответы 1

  • var a: array[0..9] of Integer;i,k,b,c: Integer;beginfor i:=0 to 9 do begina[i]:=Random(100);writeln(i+1,' число: ',a[i]);end;for i:=0 to 9 dobeginfor k:=0 to 9 dobeginif a[i]<a[k] thenbeginb:=a[i];c:=a[k];a[i]:=c;a[k]:=b;k:=0;end;end;end;writeln('Числа по возрастанию:');for i:=0 to 9 dowriteln(i+1,' число: ',a[i]);beginend;end.
    • Автор:

      homer
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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