Разработка программ и алгоритмов с использованием сортирования методом выбора

@Radik302 · Регистрация: 19.10.2018

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

Создайте массив, в котором n элементов. Упорядочить первую треть массива по возрастанию и последнюю треть по убыванию. Найти дополнение в этих частях.

@Puporev · 26.04.2019, 09:02

Сообщение от Radik302

Найти дополнение в этих частях

Это что такое?
А сортировка так.

Pascal

const n=5;
var a:array[1..3*n] of integer;
    i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 3*n do
 begin
  a[i]:=10+random(90);
  write(a[i]:3);
 end;
writeln;
for k:=1 to 3 do
 begin
  for i:=(k-1)*n+1 to n*k-1 do
  for j:=i+1 to n*k do
   begin
    if ((k=1)and(a[i]>a[j]))or((k=3)and(a[i]<a[j])) then
     begin
      x:=a[i];
      a[i]:=a[j];
      a[j]:=x;
    end;
  end;
end;
writeln('Отсортированный массив');
for i:=1 to 3*n do
write(a[i]:3);
end.

@Radik302 0 / 0 / 0 Регистрация: 19.10.2018 Сообщений: 15
		1
	Разработка программ и алгоритмов с использованием сортирования методом выбора 26.04.2019, 08:23. Показов 446. Ответов 1 Метки нет (Все метки) Создайте массив, в котором n элементов. Упорядочить первую треть массива по возрастанию и последнюю треть по убыванию. Найти дополнение в этих частях. 0

	26.04.2019, 09:02