Var X, Y: array[1..20] of real; N, I: integer; P, K: real; begin write('N='); readln(N); for i:=1 to n do read(x[i]); for i:=1 to n do read(y[i]); P:=1.0; for I:=1 to N do if X[I] begin P:=P*Y[I]; K:=X[I]; X[I]:=Y[I]; Y[I]:=K; end; writeln('Izmenen massiv X'); for I:=1 to N do write(X[I], ' '); writeln; writeln('Izmenen massiv Y'); for I:=1 to N do write(Y[I], ' '); writeln; writeln('Proizvedenie novykh komponent X: ', P:8:3); readln; end. как переделать эту программу с подпрограммами??желательно еще сделать авто ввод массива САМА ЗАДАЧА Вещественные векторы x (x1, x2, …, xN) и y (y1, y2, …, yN) преобразовать по правилу: большее из xi и yi принять в качестве нового значения xi , а меньшее – в качестве нового значения yi (i=1, 2, …, N). Печатать преобразованные векторы x и y. Найти и напечатать произведение новых компонентов вектора x.