Помогите, с pascalabc.net 50 БАЛЛОВ
Нужно заполнить массив А из 5 элементов случайными числами от -5 ДО 10. И массив В из 10 элементов так чтобы нечётные элементы В были равны элементам А, а четные были равны элементам А умноженным на 2. Вывести оба массива.
Например,
Массив А: 0 -2 -14 -5 12
Массив В: 0 0 -2 -4 -14 -28 -5 -10 12 24

const n=5;var a: array[1..n] of integer;    b: array[1..2*n] of integer;    i: integer;begin  randomize;  for i:=1 to 5 do  begin    a[i]:=random(-5,10);    b[2*i-1]:=a[i];    b[2*i]:=2*a[i];  end;  write('массив а: ');  for i:=1 to n do write(a[i],' ');  writeln;  write('массив b: ');  for i:=1 to 2*n do write(b[i],' ');end.массив а: -1 2 5 8 2 массив b: -1 -2 2 4 5 10 8 16 2 4