Помогите, с pascalabc.net 50 БАЛЛОВ Нужно заполнить массив А из 5 элементов случайными...

Question

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

Answer 1

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