Программа объединения двух одномерных массивов X и Y в массив Z.

Program pr20 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X, Y        : Array [1..20] Of Real;       

Переменные X, Y - массивы действительных чисел размером не более 20 эл-ов

Z             : Array [1..40] Of Real;       

Переменная Z - результирующий массив, размером соотв. не более 40 элементов

N             : Integer;              

Переменная N - размер исходных массивов X и Y

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Объединение двух одномерных массивов.');        

Формулировка цели алгоритма

Write ('Введите размерность массивов N: ');             

Запрос ввода N - размерности массивов X и Y

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы первого массива:');     

Запрос ввода элементов первого массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер вводимого элемента

Begin    

Начало тела цикла

Write ('X[',i,'] = ');

Вывод удобной подсказки

ReadLn (X[i]);     

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

WriteLn ('Введите элементы второго массива:');     

Запрос ввода элементов второго массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер вводимого элемента

Begin    

Начало тела цикла

Write ('Y[', i, '] = ');              

Вывод удобной подсказки

ReadLn (Y[i]);     

Ввод очередного элемента - Y[i]

End;      

Конец тела цикла

For i := 1 To N Do              

Цикл для i от 1 до N  объединения массивов X и Y в массив Z

Begin    

Начало тела цикла

Z [2 * i - 1] := X [i];             

В элемент Z с нечетным индексом заносим очередной элемент X  -  X[i]

Z [2 * i] := Y [i]    

В элемент Z с четным индексом заносим очередной элемент Y  -  Y[i]

End;      

Конец тела цикла

WriteLn ('Полученный массив:'); 

Сообщение пользователю о выводе полученного массива

For i := 1 To 2 * N Do        

Цикл для i от 1 до 2*N, т.е. до числа элементов в объединенном массиве

Write (Z [i] : 8: 2);               

Вывод элемента Z[i]

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.