Опишите последовательность действий при разработке серийных документов в текстовом редакторе ms word.

Const n=10; var x: array[1..n] of integer; c1,c2,m1,m2,w,i: integer; begin randomize; for i: =1 to n do begin   x[i]: =random(21);   write(x[i]: 3);   end; writeln; write('w = '); readln(w); c1: =0; m1: =0; c2: =0; m2: =0; for i: =1 to n do   begin   if x[i]> w then begin c1: =c1+x[i]; m1: =m1+1; end;   if x[i]< w then begin c2: =c2+x[i]; m2: =m2+1; end;   end; writeln('c1 = ',c1,'   m1 = ',m1); writeln('c2 = ',c2,'   m2 = ',m2); end. пример:   3 19 17   9   1 13   1 10   6   4 w = 5 c1 = 74   m1 = 6 c2 = 9   m2 = 4

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var x: =arrrandom(readinteger('n=',50); x.println;   var w: =readinteger('w=');   var p: =x.where(q-> q> w);   var c1: =p.sum; var m1: =p.count;   p: =x.where(q-> q< w);   var c2: =p.sum; var m2: =p.count;   writeln('c1=',c1,', m1=',m1);   writeln('c2=',c2,', m2=',m2) end. пример n= 20 39 -13 -12 41 14 -4 38 -33 28 -30 25 24 7 -20 47 42 12 6 -30 16 w= 7 c1=326, m1=11 c2=-136, m2=8