Программа объединения двух одномерных массивов X и Y в массив Z — Pascal(Паскаль)

Program pr20 (Input, Output); 
Var 
X, Y: Array [1..20] Of Real; 
Z : Array [1..40] Of Real; 
N : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Объединение двух одномерных массивов.');
Write ('Введите размерность массивов N: '); 
ReadLn (N); 
 
WriteLn ('Введите элементы первого массива:'); 
For i := 1 To N Do
Begin
Write ('X[',i,'] = ');
ReadLn (X[i]); 
End;
 
WriteLn ('Введите элементы второго массива:'); 
For i := 1 To N Do
Begin
Write ('Y[', i, '] = ');
ReadLn (Y[i]); 
End;
 
For i := 1 To N Do
Begin
Z [2 * i - 1] := X [i]; 
Z [2 * i] := Y [i]
End;
 
WriteLn ('Полученный массив:'); 
For i := 1 To 2 * N Do
Write (Z [i] : 8: 2); 
 
ReadLn;
End. 

Leave a Comment

5 + 5 =