98 разработайте программу, выводящую n случайно выбранных слов из проинициализированного массива. число n задаёт пользователь. постарайтесь сделать так, чтобы при изменении длины массива слов не требовалось вносить изменения в программу. это просто. постарайтесь избежать повторов слов. это непросто. visual basic желательно, ну или хотя бы на pascal

это странно врятли это кто тоо сделает

Const n=6; m=8; var  a: array[1..n,1..m] of integer; i,j,max,min,s: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(51)-25;     write(a[i,j]: 4);   end;   writeln;   end; max: =abs(a[1,1]); min: =abs(a[1,1]); s: =0; for i: =1 to n do   for j: =1 to m do   begin   if a[i,j]> 0 then s: =s+a[i,j];   if abs(a[i,j])> max then max: =abs(a[i,j]);   if abs(a[i,j])< min then min: =abs(a[i,j]);   end; writeln('s = ',s,' max = ',max,' min = ',min); writeln('s - max * min = ',s-max*min); end. пример: исходный массив:   -10    4    9 -21    9  24  24 -24   -23 -21  21  24 -18 -15  14  -8     2 -23 -17    5  17  -8 -10 -16   -22  -9    6 -21    3 -13  18  13   -8  -3 -25  -6  -2    8  14  25   -19 -10  22  -1  -6 -20  -5 -17 s = 262 max = 25 min = 1 s - max * min = 237

Существуют два способа перевода 1. универсальный, который годится для перевода из любой системы счисления в любую. число из исходной системы надо перевести в основную, десятичную систему 754_8 = 7*8^2+5*8^1+4*8^0 = 492_10 и затем перевести в целевую систему счисления 492/16=30 остаток от деления 12  - шестнадцатеричная цифра с 30/16=1 остаток от деления 14    - шестнадцатеричная цифра e 1/16=0 остаток от деления 1  - шестнадцатеричная цифра 1 754_8  = 492_10 = 1ec_16 - и второй способ, попроще, основанный на том, что и восьмеричная и двоичная системы - это системы с основанием, равным степени двойки, и перевод из них в двоичную и обратно прост каждая восьмеричная цифра соответствует трём двоичным, каждая шестнадцатеричная цифра - четырём двоичным, и преобразования выполняются без арифметических действий, простой перегруппировкой бит из групп по 3 в группы по 4 754_8 = 111 101 100_2 = 1 1110 1100_2 = 1ec_16