Question

На языке паскаль написать программу Дано два массива A и B по 5 элементов. Создать новый массив из 10 элементов, содержащий элементы массивов A и B по такой схеме: A[1], B[1], A[2], B[2],... A[5], B[5].

Answer 1

program raf105;

var  

 a,b:array[1..5] of integer;

 c:array[1..10] of integer;

 i:integer;

begin

writeln('Заполните первый массив:');

for i:=1 to 5 do

 readln(a[i]);

writeln('Заполните второй массив:');

for i:=1 to 5 do

 readln(b[i]);

i:=0;

write('Третий массив: ');

while i < 10 do

begin

 i:= i+2;

 c[i-1]:= a[i div 2];

 c[i]:= b[i div 2];

 write(c[i-1],' ',c[i],' ');

end;

end.

PascalABC 3.4.2

Answer 2

Программа на языке Паскаль для создания нового массива из двух массивов A и B будет выглядеть следующим образом:

```pascal
const
size = 5; // размер массивов A и B

var
A, B, C: array[1..size] of Integer; // объявление массивов A, B и C
i, j: Integer; // переменные для циклов

begin
// заполнение массивов A и B случайными числами
Randomize;
for i := 1 to size do
begin
A[i] := Random(100); // случайное число от 0 до 99
B[i] := Random(100);
end;

// слияние массивов A и B в массив C
j := 1;
for i := 1 to size do
begin
C[j] := A[i];
C[j+1] := B[i];
j := j + 2;
end;

// вывод массива C
for i := 1 to 2*size do
Write(C[i], ' ');

ReadLn;
end.
```

В данной программе объявляются три массива: A, B и C. Далее с помощью цикла `for` заполняются массивы A и B случайными числами от 0 до 99 с помощью функции `Random`. Затем с помощью еще одного цикла `for` происходит слияние массивов A и B в массив C по заданной схеме: элемент A[1] записывается в C[1], элемент B[1] — в C[2], элемент A[2] — в C[3] и так далее. Наконец, выводится массив C с помощью цикла `for` и функции `Write`.