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

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

Автор:
Предмет: Информатика
Уровень: 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:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.