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
test22
LUIZ ANTONIO RANGEL MUNIZ 60061122
practica 11 ejercicio 6 BETA
test27
Fibonasi
проверка числа на отсутствие возрастающих и убывающих четвёрок
test27b
test28
факторизация числа
Huong11a2@