1)составьте программу обмена в массиве b(n) первого отрицательного и максимального элементов. 2)составьте программу вставки в массив a(n) пятого элемента, равного 8.

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
  var jn:=b.FindIndex(x->x<0); // индекс первого отрицательного
  var jm:=b.IndexMax; // индекс первого максимального
  Swap(b[jn],b[jm]); b.Println
end.

Пример
n= 15
33 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 28
33 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 28

2)

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a[:4]+Arr(8)+a[4:]; a.Println;
end.

Пример
n= 10
65 56 31 74 -4 -54 43 8 -58 -94
65 56 31 74 8 -4 -54 43 8 -58 -94

A - Аня, b - Боря, v - Вася, g - Галя, d - Даша, i - Иван.
a>b, v>g, d<i, v<a, d>b;
Мы знаем, что а>b, значит ,что b<v;
Мы знаем, что d>b, значит ,что b<i;
Мы знаем, что v>g и v<a, значит ,что b<v;
Следовательно мы нашли обладателя меньшей флешки. Им стал Боря.
Раз b самый меньший, то в дальнейших расчетах его можно не использовать.
Мы знаем, что a>v, а это значит ,что a>g т.к. v>g !
Мы знаем, что i>d и что d>b, а отношения a к i из условия найти нельзя... Поэтому обладателем самой большой флешки может быть как и Аня так и Иван.

1. var N, k: real; 

begin 

readln(N); 

if (N<0) then k:= 0 
else 

begin 
if (frac(N)=0) then k:=N*2 
else k:=(trunc(N)+1)*2; 
end; 

writeln(k); 

end.

2. Первый хулиган увеличивал количество кусочков на 3 
Второй - на 6 
То есть, всего кусочков должно быть N = 1 + 3m + 6n 
Значит, N - 1 должно делиться на 3 
и наоборот, если N - 1 делится на 3 
N - 1 = 3k 
то возможна ситуация, когда Первый хулиган рвал k раз, 
а Второй наблюдал (ничего не рвал). 
Алгоритм свёлся к проверке: 
Если N -1 не делится на 3, то No 
КОНЕЦ