Есть ответ 👍

Сложить двоичные нормализованные числа: 0.10111*2^–11 + 0.11101*2^1.


, !

122
151
Посмотреть ответы 1

Ответы на вопрос:


var j,i,buf: integer;

    mass: array[1..4] of integer;

begin

  for i: =1 to 4 do

  begin

    mass[i]: =random(100);

    write(mass[i],' ');

  end;

  for i: =1 to 4-1 do

    for j: =1 to 4-i do

      if (mass[j] > mass[j+1]) then

          begin

            buf : = mass[j];

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

            mass[j+1] : = buf;

          end;

  writeln;

  for i: =1 to 4 do

  begin

    write(mass[i],' ');

  end;

  writeln;

  write('наиболший элемент=',mass[4]);

end.

Популярно: Информатика