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

Какая блок-схема соответствует следующей ситуации: Александр переводил одно за другим предложения с английского языка на русский, пока перевод всего текста не был закончен. После этого он отправился на прогулку.


Какая блок-схема соответствует следующей ситуации: Александр переводил одно за другим предложения с

Показать ответ
Ответ:
polinka20042014
polinka20042014
11.07.2020 21:42

var
    A: array [1..10] of integer;
    i, j, n, temp: integer;

begin
    randomize();
    n := 10;
    for i := 1 to n do
    begin
        A[i] := random(100);
        write(A[i], ' ');
    end;
    
    for j := 1 to n - 1 do
    begin
        for i := 1 to n - j do
        begin
            if a[i] mod 10 < a[i + 1] mod 10 then begin
                temp := a[i];
                a[i] := a[i + 1];
                a[i + 1] := temp;
            end;
        end;
    end;
    
    writeln();
    for i := 1 to n do
        write(A[i], ' ');
end.

0,0(0 оценок)
Ответ:
Гольник
Гольник
11.07.2020 21:42

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота