Организовать третий массив из 40 элементов в котором поочередно идут элементы из 1 и 2 массива - Turbo Pascal
Формулировка задачи:
Решение задачи: «Организовать третий массив из 40 элементов в котором поочередно идут элементы из 1 и 2 массива»
var a : array[1..20] of integer; b : array[1..20] of integer; c : array[1..40] of integer; d : array[1..20] of integer; i, j, k : byte; begin j := 1; randomize; writeln('первый массив'); for i := 1 to 20 do begin a[i] := random(20) - 10; write(a[i]:4) end; writeln; writeln('второй массив'); for i := 1 to 20 do begin b[i] := random(20) - 10; write(b[i]:4) end; writeln; writeln('третий массив'); for i := 1 to 20 do begin c[j] := a[i]; c[j+1] := b[i]; j := j + 2 end; for i := 1 to 40 do write(c[i]:4); writeln; writeln('четвертый массив (задание 2)'); j := 20; for i := 1 to 20 do begin d[i] := a[i] + b[j]; j := j - 1; write(d[i]:4); end; readln end.
Объяснение кода листинга программы
В данном коде используется язык программирования Turbo Pascal. Он содержит четыре массива: a, b, c и d. В первой части кода (до третьего массива) используются два массива a и b. Каждый элемент этих массивов генерируется случайным числом от 0 до 19 и записывается в соответствующий элемент первого массива. Затем эти числа выводятся на экран. Во второй части кода (после третьего массива) используется третий массив c. В нем поочередно записываются элементы из первого и второго массивов. В третьей части кода (после четвертого массива) используется четвертый массив d. В нем поочередно записываются суммы элементов первого и второго массивов. После вывода всех данных на экран программа завершается.