Опубликовано 03.01.2018 по предмету Информатика от Гость

В упорядоченный по
возрастанию числовой массив из 15 элементов вставить числа -2 и 5, не нарушая
упорядоченности.

Ответ оставил Гость

Program Yxl;
uses crt;
const n=15;
var
  mass:array [1..n+2] of integer;
  i,j,temp:integer;
begin
  writeln(*** Alphaeus is thinking... ***);
  writeln(*** OK ***);
  writeln(); writeln();
  writeln(Программа упорядочивает массив по возрастанию );
  writeln(и вставляет числа -2 и 5, не нарушая упорядоченности.);
{Создаём массив}
  randomize;
  writeln(Начальный массив: );
  for i:=1 to n do
    begin
      mass[i]:=random(100)-50;
      write(mass[i]:4, );
    end;
{Сортируем массив}
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if mass[i]>mass[j] then
        begin
            temp:=mass[i];
            mass[i]:=mass[j];
            mass[j]:=temp;
        end;
  writeln;
  writeln(Отсортированный массив: );
  for i:=1 to n do
    begin
      write(mass[i]:4, );
    end;
{Добавляем к массиву числа -2 и 5 и сортируем полученный массив}
  mass[n+1]:=-2; mass[n+2]:=5;
  for i:=1 to n+1 do
    for j:=i+1 to n+2 do
      if mass[i]>mass[j] then
        begin
          temp:=mass[i];
          mass[i]:=mass[j];
          mass[j]:=temp;
        end;
{Выводим итоговый массив}
  writeln(Упорядоченный массив: );
  for i:=1 to n+2 do
    write(mass[i]:4, );
end.