Массивы написать программу в pascalabc.net : даны x1, x10 и y1, y10. сравнить их суммы и если сумма х будет больше суммы y, то все y обнулить, иначе обнулить все х.

1. традиционное решение const   n=10; var   x,y: array[1..n] of integer;   sx,sy,i: integer; begin   randomize;   write('x: ');   sx: =0;   for i: =1 to n do begin       x[i]: =random(101)-50;       write(x[i],' ');       sx: =sx+x[i]       end;   writeln;   write('y: ');   sy: =0;   for i: =1 to n do begin       y[i]: =random(101)-50;       write(y[i],' ');       sy: =sy+y[i]       end;   writeln;   writeln('сумма х= ',sx,', сумма y= ',sy);   if sx> sy then for i: =1 to n do y[i]: =0   else for i: =1 to n do x[i]: =0;   write('x: ');   for i: =1 to n do write(x[i],' ');   writeln;   write('y: ');   for i: =1 to n do write(y[i],' ');   writeln end. пример x: 4 29 -50 -18 37 -43 -18 9 41 28 y: -8 41 -18 -6 -10 -10 47 -8 -29 25 сумма х= 19, сумма y= 24 x: 0 0 0 0 0 0 0 0 0 0 y: -8 41 -18 -6 -10 -10 47 -8 -29 25 2. аналогичное решение средствами pascalabc.net 3.2 const   n=10; begin   var x: =arrrandom(n,-50,50); write('x: '); x.println;   var y: =arrrandom(n,-50,50); write('y: '); y.println;   var sx: =x.sum; var sy: =y.sum;   writeln('сумма х= ',sx,', сумма y= ',sy);   if sx> sy then y: =arrfill(n,0) else x: =arrfill(n,0);   write('x: '); x.println;   write('y: '); y.println end. выбирать

vari,sumx, sumy: integer; x: array [1..10] of integer; y: array [1..10] of integer; beginsumx: =0; sumy: =0; //çàïîëíèì ìàññèâ xfor i: =1 to 10 dobegin  read (x[i]);   sumx: =sumx+x[i]  end; //çàïîëíèì ìàññèâ yfor i: =1 to 10 dobeginread (y[i]); sumy: =sumy+y[i]  end;   writeln ('sumx=',sumx,'sumy=',sumy);   if sumx> sumy then for i: =1 to 10 do y[i]: =0;   if sumx< sumy then for i: =1 to 10 do x[i]: =0;

for i: =1 to 10 dowriteln ('x[',i,']=',x[i],'y[',i,']=',y[i]); end.

1кб = 1024 байт следовательно 45*1024 = 46080 байт ответ: 46080 байт