Записать программу в паскале: добавить новый элемент в по возрастанию массив, не нарушая его порядка.

масса это плотность умноженная  на объем

переводим объем из литров  кубические метры получаем 4/1000

плотность ртути находим по таблице-13600 если я не ошибаюсь.

масса равна =13600*4/1000=54.5 кг

13,4x4=53,6 susifyebyuwuahdbfhfudhejd

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(80,1,35); a.println;   var amin: =a.min;   var amax: =a.max;   writeln('минимум ',amin,', максимум ',amax,', их произведение ',amin*amax) end. пример 35 15 30 3 4 15 7 28 9 16 31 28 22 33 9 19 16 17 20 11 19 30 2 34 21 10 3 21 26 9 1 11 23 27 4 22 16 13 4 15 4 31 10 25 11 13 8 14 14 33 24 14 7 26 20 6 14 32 17 30 13 21 3 35 16 20 6 31 29 23 3 4 14 6 7 24 20 13 24 9 минимум 1, максимум 35, их произведение 35

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   writeln('сумма отрицательных: ',a.where(x-> x< 0).sum);   writeln('количество равных 50: ',a.where(x-> x=50).count);   write('нацело делятся на 5: '); a.where(x-> x mod 5=0).println; end. пример n= 17 13 -35 41 -42 -67 -32 -34 57 50 -1 -7 18 -18 -19 -46 -76 40 сумма отрицательных: -377 количество равных 50: 1 нацело делятся на 5: -35 50 40