Сформировать массив C, четные компоненты которого равны компонентам массива А

var
  a,b,c:array[1..5] of real;
  i:integer;
begin
  a[1]:=-5.1;a[2]:=2.3;a[3]:=4.6;a[4]:=5.8;a[5]:=-2.9;
  b[1]:=2.8;b[2]:=2;b[3]:=5.4;b[4]:=-1.9;b[5]:=-4.1;
  write('C:[');
  for i:=1 to 5 do begin
    if odd(i) then c[i]:=b[i] else c[i]:=a[i];
    write(' ',c[i]:4:1);
  end;
  writeln(']');
  readln;
end.

type
  vector = array[1 .. 5] of real;
 
const
  n = 10;
  a : vector = (-5.1, 2.3, 4.6,  5.8, -2.9);
  b : vector = ( 2.8, 2,   5.4, -1.9, -4.1);
 
var
  c : array[1..n] of vector;
  i, j : integer;
begin
  for i := 1 to n do
    if odd(i) then c[i] := b else c[i] := a;
 
  writeln('C:');
  for i := 1 to n do
  begin
    for j := 1 to 5 do write(c[i, j]:6:1);
    writeln;
  end;
  readln;
end.

var
  a,b:array[1..5] of real;
  c:array[1..10] of real;
  i,j:integer;
begin
  a[1]:=-5.1;a[2]:=2.3;a[3]:=4.6;a[4]:=5.8;a[5]:=-2.9;
  b[1]:=2.8;b[2]:=2;b[3]:=5.4;b[4]:=-1.9;b[5]:=-4.1;
  write('C:[');
  j:=0;
  for i:=1 to 5 do begin
    c[i*2-1]:=b[i];
    c[i*2]:=a[i];
  end;
  for i:=1 to 10 do write(' ',c[i]);
  writeln(']');
  readln;
end.