Надо вывести числа рандомно от 1 до 100

ответ:

тот же вопрос как и у меня; )

объяснение:

гыгыгыг

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! №6 begin   var a: =arrrandom(readinteger('n=',99).println;   writeln('[',a.min,'; ',a.max,']') end. пример n= 13 72 -77 -88 -99 -2 -61 67 40 -30 -28 91 -56 29 [-99; 91] №9 begin   var a: =readarrreal('вводите: ',readinteger('n='));   writeln('положительных: ',a.where(t-> t> 0).count);   writeln('отрицательных: ',a.where(t-> t< 0).count);   writeln('нулевых: ',a.where(t-> t=0).count) end. пример n= 10 вводите: 3.7 12.6 -4 0 -13.2 0.7 0 14 2.12 0.004 положительных: 6 отрицательных: 2 нулевых: 2 №16 begin   var a: =arr(-3.7,-3.1,-2.3,-1.6,-0.9,-0.2,0.5,1.2,1.9,2.6,3.3,4.0,4.2,5.4,           1.92,1.76,1.52,1.26,0.95,0.45,0.71,1.10,1.38,1.61,1.82,2.00,2.05,2.32);   var d: =a.length div 2;   for var i: =0 to d-1 do writeln(a[i]: 5: 2,a[i+d]: 20: 3) end. результат -3.70                            1.920 -3.10                            1.760 -2.30                            1.520 -1.60                            1.260 -0.90                            0.950 -0.20                            0.450   0.50                            0.710   1.20                            1.100   1.90                            1.380   2.60                            1.610   3.30                            1.820   4.00                            2.000   4.20                            2.050   5.40                            2.320 №19 begin   var n: =readinteger('n=');   var a: =arrrandom(n,-50,50); a.println;   var i: =1;   while i< =n do begin       print(a[i-1]);       i*=2       end;   writeln end. пример n= 17 -43 -41 -37 -43 12 45 -34 -19 -38 33 -34 39 -40 33 -46 4 39 -43 -41 -43 -19 4