Для чого здійснюється публікація сайтів? як опублікувати сайт?​

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

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

нажать клавишу backspace. 

видеокарта, монитор.   это