var X, Y: array[1..20] of real; N, I: integer;

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.

Antonina Pljacidevskaja 2019-04-09 15:55:57

Твоя программка (та что написана) не рабочая... Сравнение xi и yi и присвоение значений обязан идти подпрограммой? Авто ввод это рандом?