Совокупность всех программ, используемых на данном компьютере-это

Программное обеспечение

Это программное

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;

Const   m = 6;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of integer;   i, j, p, pmax, imax: integer;   flag: boolean; begin   {1}   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(81) - 40;           write(a[i, j]: 4)       end;       writeln   end;   {2}   writeln('произведения построчно');   for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       writeln(i, ': ', p: 9)   end;   {3}   pmax : = -maxint;   writeln('максимальное построчное произведение');     for i : = 1 to m do   begin       p : = 1;       for j : = 1 to n do p : = p * a[i, j];       if pmax < p then       begin           pmax : = p;           imax : = i;       end   end;   writeln(imax, ': ', pmax: 9);   {4}   for i : = 1 to m do b[i] : = a[i, 1];   for i : = 2 to m do   begin       p : = b[i];       j : = i - 1;       flag : = false;       while (j > 0) and (not flag) do           if p < b[j] then           begin               b[j + 1] : = b[j];               j : = j - 1           end           else flag : = true;       b[j + 1] : = p   end;   writeln('отсортированный первый столбец');   for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив   -27    4    3  14   15  40 -39 -27   40 -40 -40 -24   -38    7  18    1   17  27  29  -9   10 -32  38    0 произведения построчно 1:         -4536 2:       631800 3:   -1536000 4:         -4788 5:     -119799 6:                 0 максимальное построчное произведение 2:       631800 отсортированный первый столбец -38 -27   10   15   17   40