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