Определённая сортировка массивов

@Dmitriy188 · Регистрация: 07.08.2018

Студворк — интернет-сервис помощи студентам

Суть в том, что должны генерироваться случайные числа, затем они должны быть в порядке возрастания и в определённом порядке.

@Puporev · 19.03.2020, 08:56

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
var a,b:array[,]of integer;
    n,x:integer;
begin
n:=5;
setlength(a,n,n);
randomize;
//генерация матрицы
writeln('Исходная матрица');
for var i:=0 to n-1 do
 begin
  for var j:=0 to n-1 do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
//сортировка матрицы по возрастанию
for var i:=0 to n*n-2 do
for var j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n] then
 begin
  x:=a[i div n,i mod n];
  a[i div n,i mod n]:=a[j div n,j mod n];
  a[j div n,j mod n]:=x;
 end;
writeln('Отсортированная матрица');
for var i:=0 to n-1 do
 begin
  for var j:=0 to n-1 do
  write(a[i,j]:3);
  writeln;
 end; 
//заполнение змейкой
setlength(b,n,n);
for var j:=0 to n-1 do
if j mod 2=0 then 
for var i:=0 to n-1 do b[i,j]:=a[j,i]
else
for var i:=n-1 downto 0 do b[i,j]:=a[j,i];
writeln('Матрица "змейкой"');
for var i:=0 to n-1 do
 begin
  for var j:=0 to n-1 do
  write(b[i,j]:3);
  writeln;
 end; 
 
end.

Если устроит такой вариант не совсем "net"-вского написания, напишу вторую.

@canadamoscow · 26.03.2020, 00:32

Перевернутые четные столбцы (решение)
Змейка по кругу (решение)

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@Dmitriy188 0 / 0 / 0 Регистрация: 07.08.2018 Сообщений: 6

	Определённая сортировка массивов 19.03.2020, 00:40. Показов 393. Ответов 2 Метки нет (Все метки) Суть в том, что должны генерироваться случайные числа, затем они должны быть в порядке возрастания и в определённом порядке. Миниатюры 0

@canadamoscow 1179 / 430 / 194 Регистрация: 23.03.2020 Сообщений: 1,021 Записей в блоге: 1
	26.03.2020, 00:32
	Перевернутые четные столбцы (решение) Змейка по кругу (решение) 0