Формирование одномерных массивов - Turbo Pascal

Формулировка задачи:

Даны массивы u(10), v(10).Построить массив t(20) по правилу: t1=u10, t2=u9, t3=u8........., t10=u1, t11=v10, t12=v9, t13=v8..... t20=v1. Построение массива t оформить как процедуру. Все необходимые данные для процедуры должны передавать ей в качестве параметров. Глобальных переменных не использовать. Помогите пожалуйста

Решение задачи: «Формирование одномерных массивов»

Листинг программы

uses crt;
const n=10;
type mas=array[1..2*n] of integer;
procedure massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
end;
procedure new_mas(a,b:mas;var c:mas;s:char);
var i:byte;
begin
for i:=1 to n do
c[i]:=a[n-i+1];
for i:=n+1 to 2*n do
c[i]:=b[2*n-i+1];
writeln('Массив ',s);
for i:=1 to 2*n do
write(c[i]:4);
end;
var u,v,t:mas;
begin
clrscr;
massiv(u,'U');
massiv(v,'V');
new_mas(u,v,t,'T');
readln
end.

Объяснение кода листинга программы

Данный код на языке Turbo Pascal представляет собой программу для работы с одномерными массивами. В первой части кода определен тип данных mas, который представляет собой одномерный массив целых чисел. Далее определены две процедуры: massiv и new_mas. Процедура massiv принимает в качестве параметров переменную a, которая представляет собой массив, и переменную c, которая представляет собой символ. Внутри процедуры происходит вывод на экран информации о массиве, а затем для каждого элемента массива происходит генерация случайного числа от 0 до 99 и вывод его на экран. Процедура new_mas также имеет два параметра: a и b, которые представляют собой массивы, и переменную c, которая представляет собой новый массив. Внутри процедуры происходит копирование элементов из массивов a и b в массив c. Затем происходит вывод на экран информации о массиве c. В конце кода определены три переменные u, v и t, которые представляют собой массивы. Затем происходит очистка экрана с помощью функции clrscr. После этого вызываются процедуры massiv, massiv и new_mas для трех разных массивов. Наконец, программа завершается с помощью функции readln.