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

Какой тип имеет переменная a, если после выполнения оператором write (a) на экране было выведено следующее число? a) 105; б) 1.05e+1.

Показать ответ
Ответ:
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-бота