• 
  • 01 January 2021
  Информатика
  • Автор: yurievich

  

  Запишите полный текст программы и выполните для массива a= 0,1,9,2,4,3,6,5
  Сортировка по убыванию
  Босова 72 стр 9 класс

• 
  • 01 January 2021
  • Ответ оставил: Вованичикчка

  const n = 8;

  var a: array [1..n] of integer:=(0, 1, 9, 2, 4, 3, 6, 5);

  i, j, imax, x: integer;

  begin

   for i:=1 to n-1 do

   begin

     imax:=i;

     for j:=i+1 to n do if a[j]>a[imax] then imax:=j;

     x:=a[i];

     a[i]:=a[imax];

     a[imax]:=x;

   end;

   

   write('Отсортированный по убыванию массив: ');

   for i:=1 to n do

     write(a[i]+' ');

  end.

  0
• 
  • 01 January 2021
  • Ответ оставил: 13nisa13

  const n=8;

  var i,j,v,max,k:integer;

  a:array [1..n] of integer = (0,1,9,2,4,3,6,5);

  begin

  write ('       Исходный массив: ');

  for i:=1 to n do write(a[i],'  ');

  writeln;

  for i:=1 to n-1 do

  begin

  max:=i;

  for j:=i+1 to n do

  if a[j] > a[max] then max:=j;

  v:=a[i];

  a[i]:=a[max];

  a[max]:=v

  end;

  write ('Преобразованный массив: ');

  for i:=1 to n do write(a[i],'  ');

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (21.08.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы