Если элемент второго массива больше соответствующего элемента первого массива, то поменять элементы местами

@Allena_101 · Регистрация: 11.04.2017

Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . Выведите исходные и преобразованные массивы.

@Hitoku · 19.04.2017, 01:12

Pascal

type mas = array [1..100] of integer;
procedure vivod(a:mas; n:byte);
var i:byte;
begin
  for i:=1 to n do
    write(a[i],' ');
  writeln;
end;
 
procedure swap(var a,b:integer);
var x:integer;
begin
  x:=a; a:=b; b:=x;
end;
 
var x,y:mas;
    i,n:byte;
begin
  randomize;
  write('n = '); readln(n);
  for i:=1 to n do begin
    x[i]:=random(41)-20;
    y[i]:=random(41)-20;
  end;
  write('X: '); vivod(x,n);
  write('Y: '); vivod(y,n);
  for i:=1 to n do
    if x[i]<y[i] then swap(x[i],y[i]);
  write('new X: '); vivod(x,n);
  write('new Y: '); vivod(y,n);
end.

@Allena_101 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 34
		1
	Если элемент второго массива больше соответствующего элемента первого массива, то поменять элементы местами 18.04.2017, 19:13. Показов 1321. Ответов 1 Метки нет (Все метки) Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . Выведите исходные и преобразованные массивы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Если элемент второго массива больше соответствующего элемента первого массива, то поменять элементы местами

Решение