Question

Даны два целочисленных массива. Найти сумму элементов первого массива, стоящих на четных местах , и заменить ею все элементы второго массива , стоящие на нечетных местах( в паскаль)

Answer 1

Program p1;
const  n = 10;
var  a: array[1..n] of integer;  b: array[1..n] of integer;  i, sum, j: integer;
begin 
for i := 1 to n do begin a[i] := random(10);write(a[i], ' ') end;writeln; 
for i := 1 to n do begin b[i] := random(10);write(b[i], ' ') end;writeln; 
sum := 0; 
for i := 1 to n do if i mod 2 = 0 then sum := sum + a[i]; 
for i := 1 to n do if i mod 2 <> 0 then b[i] := sum; 
for i := 1 to n do write(b[i], ' ')  
end.