Целое, состоящее из частей, взаимосвязанных между собой, называется

Система - это  целое ,  состоящее  из  частей ,  взаимосвязанных  между  собой .

Const   n = 15; var   x: array[1..n] of integer;   i, min, max: integer; begin   randomize;   writeln('элементы массива');   min : = 32767; max : = -32768;   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4);       if (x[i] > 0) and (min > x[i]) then min : = x[i]       else       if (x[i] < 0) and (max < x[i]) then max : = x[i]   end;   writeln;   writeln('min=', min, ', max=', max) end. тестовое решение: элементы массива   29 -28 -14 -46 -22  13  -6  16  24 -47  -1  39  49  47 -23 min=13, max=-1 const   n = 15; var   x: array[1..n] of integer;   i, max, max1: integer; begin   randomize;   writeln('элементы массива');   max : = -32768; max1 : = max;   for i : = 1 to n do   begin       x[i] : = random(100);       write(x[i]: 3);       if max < x[i] then begin max1 : = max; max : = x[i] end       else       if max1 < x[i] then max1 : = x[i]   end;   writeln;   writeln('второй максимум равен ', max1) end. тестовое решение: элементы массива   37 66 92 11 39 32 70 17 28 80 51 37  1 56 41 второй максимум равен 80

Const n=10; m=3; var  a: array[1..n,1..m] of integer; i,j,s,k: integer; p: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(81)+20;     write(a[i,j]: 4);   end;   writeln;   end; s: =0; for i: =1 to n do   for j: =1 to m do s: =s+a[i,j]; p: =s/n*0.8; writeln('p = ',p: 5: 2); writeln('зачислены: '); k: =0; for i: =1 to n do   begin   s: =0;   for j: =1 to m do s: =s+a[i,j];   if s> =p then begin write(i,' '); k: =k+1; end;   end; writeln; writeln('k = ',k); end. пример: 76 62 50 37 73 22 61 99 36 22 69 38 27 82 22 93 56 37 79 84 51 83 31 60 61 39 95 70 70 100 p = 142.80 зачислены: 1 3 6 7 8 9 10   k = 7