Сформировать массив из 15 случайных чисел, принадлежащих промежутку от 5 до 20, а затем преобразовать, увеличивая на 1 все элементы, меньшие 10. распечатать исходный и преобразованный массивы.

Var
i:integer;
a:array [1..15] of integer;

begin
for i:=1 to 15 do begin
a [i]:=Random (5,20);
end;
write ('Исходный массив ');
for i:=1 to 15 do begin
write (a [i]);
write (' ');
end;
for i:=1 to 15 do begin
if (a [i]<10) then
inc (a [i]);
end;
writeln (' ');
write('Преобразованный массив ');
for i:=1 to 15 do begin
write (a [i]);
write (' ');
end;
end.

ребусы: 1 - я извени не знаю, 2- паблик 3- браузер 4-  тоже не знаю

Объяснение:

задача : 1)из (14) наливаем в (5)

2)из (5) наливаем в (9)

3)повторяем пункт 1 

4)из (5) наливаем в (9) остается 1л

5)переливаем из (9) в (14)

6)выливаем 1л из (5) в (9)

7)из (14) наливаем в (5)

8)из (5) наливаем в (9) 

в битоне(9) находится 6л молока

9)из (14) наливаем в (5)

10)из (5) наливаем в (9) 

в битоне (5) остается 2л молока

11)переливаем из (9)в (14)

12)наливаем в (9) 2л молока из (5) 

13)из (14) наливаем в (5)

14)из (5) переливаем в (9)

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

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1);
  Writeln('Элементов, равных минимальному- ',
      a.Where(x->x=a[imin]).Count-1)
end.

Пример
n= 50
-13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10
Номер минимального элемента- 13
Элементов, равных минимальному- 2