Сpascalabc.net 50 нужно заполнить массив а из 5 элементов случайными числами от -5 до 10. и массив в из 10 элементов так чтобы нечётные элементы в были равны элементам а, а четные были равны элементам а умноженным на 2. вывести оба массива. например, массив а: 0 -2 -14 -5 12 массив в: 0 0 -2 -4 -14 -28 -5 -10 12 24
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