1.Алексей учится работать с одномерными массивами. И он создал следующую программу: const mas : array[1..5] of integer=(13, 22, 3, 44, 5); var temp, n, i, j : integer; begin n := 5; for i:=1 to n-1 do for j := i+1 to n do if mas[i] > mas[j] then begin temp := mas[i]; mas[i] := mas[j]; mas[j] := temp end; for i:= 1 to n do write(mas[i], ' '); end. 2.Выберите строку, которая будет отражена на экране в результате работы программы. 44, 22, 13, 5, 3 13, 22, 5, 44, 3 3, 5, 13, 22, 44 13, 22, 3, 44, 5 Как называется это алгоритм, реализованный Алексеем? Быстрая сортировка "Гномья" сортировка Алгоритм не меняет массив Сортировка "Пузырьком"

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin 
   writeln('Введите количество ящиков мыла завезенных на склад');
  readln (n);
  writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
  readln (k); 
  n:=n-(10*k);
  If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
          else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.

В Паскале есть функция Round, которая использует следующий "стандартный" алгоритм округления:
Если число положительное, то при величине его дробной части меньше 0.5, она просто отбрасывается, если больше - отбрасывается и к числу прибавляется единица. Если число отрицательное, то при абсолютной величине его дробной части меньше 0.5, она просто отбрасывается, если больше - из числа вычитается единица.
А функция Trunc возвращает целую часть числа.

var
  p:real;
begin
  Write('Введите число: '); Read(p);
  Writeln('Округленное значение: ',Round(p),', целая часть: ',Trunc(p))
end.

Тестовое решение:
Введите число: -12.74
Округленное значение: -13, целая часть: -12

Введите число: 12.93
Округленное значение: 13, целая часть: 12

Введите число: 9.4323
Округленное значение: 9, целая часть: 9