Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
111
const m = 7; {колличетво элементов в массиве} var msort: array[1..m] of integer; {собственно наш массив} i, j, k: integer; {i - это шаг ,j - это под-шаг} begin writeln('Введите элементы массива'); for i := 1 to m do read(msort[i]); for i := 1 to m - 1 do for j := 1 to m - i do if msort[j] > msort[j + 1] then begin k := msort[j]; msort[j] := msort[j + 1]; msort[j + 1] := k; end; write('Отсортированный массив: '); for i := 1 to m do write(msort[i]:4); writeln; end.
run
|
edit
|
history
|
help
0
nomer8
Ipis unazad ulancana lista
basketball_player_training
Tri 1.0
ss
nomer3
nomer5
test2
Алгоритм умножения двухзначного числа на 11
pascal sizeof