Блог для маленьких школьников и их родителей
ШколаЛа
11
Июнь

Кто-нибудь решите!)Буду очень благодарна)

Автор: Rostik8022777
Предмет: Информатика
Уровень: 5 - 9 класс

Кто-нибудь решите!)Буду очень благодарна)

Ответов к вопросу: 1
  • lizakolmanova
    11.06.2024 | 09:15

    const
      n = 10;
    var
      a:array[1.n] of integer;
      i, j:integer;
    begin
      randomize;
      writeln(‘Исходный массив:’);
      for i := 1 to n do
      begin
        a[i] := random(101);
        write(a[i], ‘ ‘);
      end;
      
      for i := 1 to n — 1 do
        for j := 1 to n — i do
          if a[j] mod 10 > a[j + 1] mod 10 then
          begin
            a[j] := a[j] + a[j + 1];
            a[j + 1] := a[j] — a[j + 1];
            a[j] := a[j] — a[j + 1];
          end;
     
      writeln;
      writeln(‘Результат:’);
      for i := 1 to n do
        write(a[i], ‘ ‘);
      writeln;
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.

Ищете ответы на вопрос по Кто-нибудь решите!)Буду очень благодарна) для 5 - 9 класс? На странице собраны решения и советы по предмету Информатика, а также обсуждения от других участников. Ответы на этот вопрос уже есть. Вы можете задать свой вопрос, а также стать частью нашего сообщества экспертов.