Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Сортировка массива цифр
const n = 30; type digit = 0..9; var a : array [1..n] of digit; d : array [0..9] of integer; i, j, k : integer; begin randomize; for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; writeln; for i := 0 to 9 do d[i] := 0; // обнуляем счётчик цифр {Начинаем считать и раскидывать цифры в массиве a по счётчкам d[i]} for i := 1 to n do begin d[a[i]] := d[a[i]] + 1; end; {Выводим массив счётчиков цифр} for i := 0 to 9 do write(d[i], ' '); writeln; {Теперь формируем массив цифр, располагая в нём цифры в порядке возрастания } k := 0; for i := 0 to 9 do for j := 1 to d[i] do begin k:= k + 1; a[k] := i; end; {Выводим отсортированный массив цифр} for i := 1 to n do write(a[i], ' '); writeln; end.
run
|
edit
|
history
|
help
0
Первая задание
TanTai11A2@
Луноход-3
zadacha4
5 5
07 Ariketa
Бассейн-5
homework
linear eq
Calculatrice 1.0