• 
  • 18 February 2021
  Информатика
  • Автор: flaimwar

  

  Напишите программу , которая сортирует массив по убыванию суммы цифр числа. Только полегче для 10 класса. В паскале.Помогите срочно!

• 
  • 18 February 2021
  • Ответ оставил: LegendaryGhost

  function summa(n:integer):integer;

  var a,s:integer;

  begin

  a:=abs(n);

  s:=0;

  while a>0 do

  begin

   s:=s+a mod 10;

   a:=a div 10;

  end;

  summa:=s

  end;

  const n=10;

  var A:array [1..n] of integer;

     j,i,k:integer;

  begin

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

  for i:=1 to n do

  begin

   A[i]:=random(15)+1;

   write(A[i]:4);

  end;

  for i:=1 to n-1 do

  begin

   for j:=1 to n-1 do

   if summa(A[j])<summa(A[j+1]) then

    begin

     k:=A[j];

     A[j]:=A[j+1];

     A[j+1]:=k

    end;

  end;

  writeln;

  writeln('Отсортированный массив: ');

  for i:=1 to n do

  write(A[i]:4);

  readln

  end.

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

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

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

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

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