Дана последовательность a1 a2 an. образовать новую последовательность, выбросив из исходной, те члены, которые равны min(a1,a2 an). как это сделать при функций и процедур?

// pascalabc.net 3.2, сборка 1400 от 13.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',10); a.println;   var m: =a.min;   var b: =a.where(x-> x< > m); b.println; end. пример n= 30 -3 6 -2 5 -1 -10 3 9 8 5 2 9 4 -10 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3 -3 6 -2 5 -1 3 9 8 5 2 9 4 8 10 6 9 -8 4 -7 2 10 -7 -7 -5 1 2 0 -3 с процедурами и функциями (высосано из пальца, ибо не нужно) // pascalabc.net 3.2, сборка 1400 от 13.03.2017 // внимание! если программа не работает, обновите версию! function arrmin(a: array of integer): =a.min; procedure newsequence(a: array of integer; del: integer; var s: sequence of integer); begin   s: =a.where(x-> x< > del) end; begin   var a: =arrrandom(readinteger('n=',10); a.println;   var b: sequence of integer;   newsequence(a,arrmin(a),b);   b.println end.

1 ложь

2 ложь

3 ложь

Объяснение:

Правельно и легко❤️