//Я так понял, что нужно объеденить 2 массива в 1 большой. Если же нужно, чтобы каждый элемент третьего массива состоял из суммы элементов с такии же индексом двух предыдущих массивов, то нужен другой код
Program Test;
const Size = 5; x = 1; y = 10;
Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;
Begin
Randomize;
j := 0;
for i := 1 to Size do begin Arr1[i] := Random(x, y); Arr2[i] := Random(x, y); end;
for i := 1 to Size * 2 do begin if (i <= Size) then Arr3[i] := Arr1[i]
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 * 8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит
Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт
(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)
Program Test;
const Size = 5; x = 1; y = 10;
Var i, j, Entered: integer; Arr1: array[1..Size] of integer; Arr2: array[1..Size] of integer; Arr3: array[1..Size * 2] of integer;
Begin
Randomize;
j := 0;
for i := 1 to Size do
begin
Arr1[i] := Random(x, y);
Arr2[i] := Random(x, y);
end;
for i := 1 to Size * 2 do
begin
if (i <= Size) then
Arr3[i] := Arr1[i]
else
begin
j := j + 1;
Arr3[i] := Arr2[j];
end;
end;
Write('Показать 1 массив? Если да, то введи 1: ');
Readln(Entered);
if (Entered = 1) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr1[i]);
end;
Writeln();
Entered := 0;
Write('Показать 2 массив? Если да, то введи 2: ');
Readln(Entered);
if (Entered = 2) then
begin
Writeln();
for i := 1 to Size do
Writeln('Элемент ', i, ' = ', Arr2[i]);
end;
Writeln();
Writeln('Суммарный массив:');
Writeln();
for i := 1 to Size * 2 do
Writeln('Элемент ', i, ' = ', Arr3[i]);
End.