В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Kira369
Kira369
09.10.2020 05:01 •  Информатика

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

Показать ответ
Ответ:
ksu26082002
ksu26082002
07.07.2020 23:45
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.
0,0(0 оценок)
Ответ:
ZKRMT
ZKRMT
07.07.2020 23:45
Const n = 15;
type ArrayOfInteger = array [1..n+2] of integer;

procedure ArrayOutput(A: ArrayOfInteger; a_length: integer);
var i: integer;
begin
  for i := 1 to a_length do
    write(A[i]:4, ' ');
  writeln;
end;

procedure ArraySort(var A: ArrayOfInteger; a_length: integer);
var i, j, temp: integer;
begin
  for i := 1 to a_length-1 do
    for j := i+1 to a_length do
      if A[i]>A[j] then begin
        temp:=A[i];
        A[i]:=A[j];
        A[j]:=temp;
      end;
end;

var
  mass:ArrayOfInteger;
  i:integer;
begin
  writeln('Программа упорядочивает массив по возрастанию ');
  writeln('и вставляет числа -2 и 5, не нарушая упорядоченности.');
{Создаём массив}
  randomize;
  for i := 1 to n do
    mass[i] := random(100)-50;

  writeln('Начальный массив: ');
  ArrayOutput(mass, n);

  ArraySort(mass, n);
  writeln('Отсортированный массив: ');
  ArrayOutput(mass, n);
{Добавляем к массиву числа -2 и 5 и сортируем полученный массив}
  mass[n+1]:=-2;
  mass[n+2]:=5;
  ArraySort(mass, n+2);
{Выводим итоговый массив}
  writeln('Упорядоченный массив: ');
  ArrayOutput(mass, n+2);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота