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
Как называется это алгоритм, реализованный Алексеем?
Быстрая сортировка
"Гномья" сортировка
Алгоритм не меняет массив
Сортировка "Пузырьком"

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.

если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной

получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел. 

random это  функция  возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:

a: = random(101)-50;       {числа от -50 до 50}

b: = random(101)-200;     {от -100 до 100}

а теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!