Заданные два числовых массива X(N) и Y(N) преобразуйте по заданному правилу - Pascal ABC

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

Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . Что сделала. подскажите что не так
Program gulim;
var X,Y: array[1..150] of integer;
    Xn,Yn,k, i:integer;
begin
write ('введите число Xn: ');
readln(Xn);
write('введите число Yn: ');
readln(Yn);
 for i:=1 to 150 do
 begin
  write(' X[ ', i, ' ] = ');
  readln(X[i]);
   write('Y [ ', i, ' ] = ');
  readln(Y[i]);
  end;
  for i:=1 to 150 do
  if (X[i]>Y[i]) or (X[i]<Y[i]) then 
writeln (X[i]:=X[i] or X[i]:=Y[i]);
  if (X[i]<Y[i] or X[i]>Y[i]) then
 writeln(Yn[i]:=Xn[i] or Yn[i]:=Yn[i]);
end.


textual

Код к задаче: «Заданные два числовых массива X(N) и Y(N) преобразуйте по заданному правилу - Pascal ABC»

Program gulim;
const int = 10;
var X, Y          : array[1..int] of integer;
    n, temp, i  : integer;
 
begin
     write ('Введите размер массива n < ', int, ': ');
     readln(n);
 
     for i:=1 to n do
     begin
          write('X[ ', i, ' ] = ');
          readln(X[i]);
          write('Y[ ', i, ' ] = ');
          readln(Y[i]);
     end;
     
     WriteLn('Массив Х:');
     for i:=1 to n do
          Write(X[i]:4);
     WriteLn;
     WriteLn('Массив Y:');
     for i:=1 to n do
          Write(Y[i]:4);
 
     for i:=1 to n do
         if (X[i]<Y[i]) then
         begin
              temp:= X[i];
              X[i]:= Y[i];
              Y[i]:= temp;
         end;
     WriteLn;
     WriteLn;
     WriteLn('Новый массив Х:');
     for i:=1 to n do
          Write(X[i]:4);
     WriteLn;
     WriteLn('Новый массив Y:');
     for i:=1 to n do
          Write(Y[i]:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.923 из 5

Источник
Похожие ответы