В программе случайным образом формируется массив А из 20 целых чисел требуется сформировать на его основе два новых массива B и C в которых элементы будут расположены по возрастанию и убыванию соответственно какие изменения нужно внести в код, чтобы получить верный результат
​

Ятак понимаю, что "значение массива" - это сумма его элементов. если это  так, то вот решение: 1) var a,b: array[1..10] of real; s,k: real; i: integer; begin   wtiteln('init a: ')   for i: =1 to 10 do     begin     readln(k);     a[i]=k;     end;   wtiteln('init b: ')   for i: =1 to 10 do     begin     readln(k);     b[i]=k;     end;   s: =0;   k: =0;   for i: =1 to 10 do     k: =k+a[i];   k: =k/10;   for i: = to 10 do     s: =s+b[i];   s: =(s/10)+k;   writeln(s); end. 2) var a,b: array[1..10] of real; r,k: real, i: integer; begin   writeln('init a: ");   for i: =1 to 10 do     begin     readln(k);     a[i]: =k;     end;   writeln('init b: ");   for i: =1 to 10 do     begin     readln(k);     b[i]: =k;     end;   r: =0   k: =0;   for i: =1 to 10 do     k: =k+a[i];   for i: =1 to 10 do     r: =r+b[i];   r: =r-k;   writeln(r); end.