Question

Дан массив, содержащий N (1≤N≤1000) целых элементов. Напишите программу, которая вставляет между каждыми двумя элементами сумму остальных элементов (например, массив -1,2,5,0,2 станет -1,7,2,1,5,3,0,6,2)
ПАСКАЛЬ

Answer 1

Ответ:

var

 a, b: array of integer;  

 n, i, k :integer;

 function getsum(j:integer):integer;

 var

   g: integer;

 begin

   result:=0;

   for g:=0 to n-1 do

     if (g<>j) and (g<>j+1) then

       result := result+ a[g];

 end;

begin

 Randomize;

 writeln('Кол-во элементов массива : ');

 readln(n);

 SetLength(a,n);

 SetLength(b,2*n-1);

 for i := 0 to n-1 do begin

   a[i] := random(-10, 10);

   print(a[i]);

 end;  

 writeln();

 

 i:=0; k:=0;

 while i<n-1 do begin

   b[k]:= a[i]; inc(k);

   b[k]:= getsum(i);  

   print( b[k-1], b[k]);  

   inc(k);inc(i);

 end;

 print(a[n-1])

end.