Turbo Pascal: Дан массив А из четного числа N элементов. Сформировать массив В из
К=N/2 элементов так, чтобы: b1=aN+aN–1, b1=aN–2+aN–3, … , bK–1=a4+a3, bK=a2+a1.

program  z1;

var a,b:array [1..100] of integer;

i,k,n:integer;

begin

randomize;

write('Введите чётное n (n<=100) = ');

readln(n);

write('Массив А:');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:4)

end;

writeln;

k:=n div 2;

write('Массив B:');

for i:=1 to k do

begin

b[i]:=a[n-i*2+2]+a[n-i*2+1];

write(b[i]:4)

end

end.

Объяснение:

картинка