Нужно написать программу в паскале с рандомным вводом и ручным элементнужно написать программу в паскале с рандомным вводом и ручным элементом матрицы

Только что подобный решил код в файле. 1- рандомный ввод, 2- ручной.

// pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var n: =readinteger('количество элементов=');   var b: =arrrandomreal(n,-10,20);   b.println(', ');   var mx: =b.max;   var c: =b.where(x-> x< > mx);   c.println(', ') end. тестовое решение: количество элементов= 13 -3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 19.5660732731065, 18.4909354934892, 9.13206894841607 -3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 18.4909354934892, 9.13206894841607

В=20   - целое, положительное, его машинный код: решение: 20 (в 10с/с) = 16+4 =2^4+2^2= 10100 (в  2c|c) машинный код числа 20 будет:       0001 0100   (прямой код) а= - 25,   целое, отрицательное решение:   25 (в10с\с) =16+8+1= 2^4+2^3+2^0= 11001 (2c\c) прямой код:   1001  1001   (первая 1 - означает знак   - ) обратный код :     1110 0110 дополнительный код:   1110 0111   -25 имеет машинный код:     1110 0111